Fix find-imported-class where searched-for class is a suffix of an al…

…ready-imported.
m0smith · Mar 18, 2009 · f9f275d · f9f275d
1 parent df998f2
commit f9f275d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/main/lisp/malabar-import.el b/src/main/lisp/malabar-import.el
@@ -63,7 +63,7 @@ in the list")
     (let ((import-tag (find classname tags
                             :key #'semantic-tag-name
                             :test (lambda (classname tag)
-                                    (string-ends-with tag classname)))))
+                                    (string-ends-with tag (concat "." classname))))))
       (or (when (> (count ?. classname) 1)
             classname)
           (when import-tag