Recognize qualified names in -find-imported-class

m0smith · Mar 4, 2009 · dab48f6 · dab48f6
1 parent cfc73d8
commit dab48f6
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/main/lisp/malabar-mode.el b/src/main/lisp/malabar-mode.el
@@ -121,7 +121,9 @@
     (let ((import-tag (find classname tags
                             :key #'semantic-tag-name
                             :test #'equal)))
-      (or (and import-tag
+      (or (and (> (count ?. classname) 1)
+               classname)
+          (and import-tag
                (semantic-tag-name import-tag))
           (malabar-find-imported-class-from-wildcard-imports classname buffer)
           (find (concat "java.lang." classname)