Fix the font-locking of classes in scenarios like URLDecoder/decode

Author: Bozhidar Batsov

clojure-mode.el

@@ -511,8 +511,8 @@ Called by `imenu--generic-function'."
                 ;; namespace
                 "\\([a-z0-9-]+\\)")
        (1 font-lock-type-face nil t))
-      ;; foo/ Foo/ @Foo/
-      ("\\(?:\\<\\|\\.\\)@?\\([a-zA-Z][a-z0-9_-]*\\)/" 1 font-lock-type-face)
+      ;; foo/ Foo/ @Foo/ /FooBar
+      ("\\(?:\\<\\|\\.\\)@?\\([a-zA-Z][a-zA-Z0-9$_-]*\\)/" 1 font-lock-type-face)
       ;; fooBar
       ("\\(?:\\<\\|/\\)\\([a-z]+[A-Z]+[a-zA-Z0-9$]*\\>\\)" 1 'clojure-interop-method-face)
       ;; Highlight grouping constructs in regular expressions

test/clojure-mode-test.el

@@ -118,6 +118,10 @@ POS."
     (should (eq (clojure-test-face-at 1 5) 'font-lock-type-face))
     (should (eq (clojure-test-face-at 6 6) nil))
     (should (eq (clojure-test-face-at 7 16) 'clojure-interop-method-face)))
+  (clojure-test-with-temp-buffer "SomeClass/methodName"
+    (should (eq (clojure-test-face-at 1 9) 'font-lock-type-face))
+    (should (eq (clojure-test-face-at 10 10) nil))
+    (should (eq (clojure-test-face-at 11 20) 'clojure-interop-method-face)))
   (clojure-test-with-temp-buffer "clojure.lang.Var/someMethod"
     (should (eq (clojure-test-face-at 1 16) 'font-lock-type-face))
     (should (eq (clojure-test-face-at 17 17) nil))