Patch to use semantic in jde-parse-class-name
Przemysław Wojnowski <[email protected]> Wed, 05 May 2010 17:09:42 +0200
| Newsgroups | gmane.emacs.jdee.devel |
|---|---|
| Message-ID | <[email protected]> |
Hi, this patch causes jde-parse-class-name to use semantic, instead of thing-at-point from emacs, to get class name at point. thing-at-point returns "X," as class name from "implements X, Y", whereas semantic will return correctly X. Regards, Przemek ------------------------------------------------------------------------------ _______________________________________________ jdee-devel mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/jdee-devel
jde-parse.patch
(text/x-patch, 720 B)
Index: lisp/jde-parse.el
===================================================================
--- lisp/jde-parse.el (revision 229)
+++ lisp/jde-parse.el (working copy)
@@ -1746,12 +1746,7 @@
;;nil
(list fq pkg classname))))))
(if (eq classname 'point)
- ;; TODO: a fully qualified class name looks like a file name
- ;; (i.e. [a-zA-Z.]) but this need to be refined to use the Sun Java
- ;; standards of class name parsing
- (or (parse-at-point (thing-at-point 'filename))
- (parse-at-point (thing-at-point 'word))
- (parse-at-point (thing-at-point 'symbol)))
+ (parse-at-point (mapconcat 'identity (semantic-ctxt-current-thing) "."))
(parse-at-point classname))))
(provide 'jde-parse)