Font lock properly fully qualified type hints

Author: bbatsov

clojure-mode.el

@@ -491,7 +491,7 @@ Called by `imenu--generic-function'."
       ;; Foo Bar$Baz Qux_ World_OpenUDP Foo. Babylon15.
       ("\\(?:\\<\\|\\.\\|/\\|#?^\\)\\([A-Z][a-zA-Z0-9_]*[a-zA-Z0-9$_]+\\.?\\>\\)" 1 font-lock-type-face)
       ;; foo.bar.baz
-      ("\\<[a-z][a-z0-9_-]+\\.\\([a-z][a-z0-9_-]*\\.?\\)+" 0 font-lock-type-face)
+      ("\\<^?\\([a-z][a-z0-9_-]+\\.\\([a-z][a-z0-9_-]*\\.?\\)+\\)" 1 font-lock-type-face)
       ;; foo/ Foo/
       ("\\<\\([a-zA-Z][a-z0-9_-]*\\)/" 1 font-lock-type-face)
       ;; fooBar

test/clojure-mode-test.el

@@ -102,7 +102,8 @@ POS."
 (ert-deftest clojure-mode-syntax-table/namespace ()
   :tags '(fontification syntax-table)
   (should (eq (clojure-test-face-at 1 5 "one.p") 'font-lock-type-face))
-  (should (eq (clojure-test-face-at 1 11 "one.p.top13") 'font-lock-type-face)))
+  (should (eq (clojure-test-face-at 1 11 "one.p.top13") 'font-lock-type-face))
+  (should (eq (clojure-test-face-at 2 12 "^one.p.top13") 'font-lock-type-face)))
 
 (ert-deftest clojure-mode-syntax-table/namespaced-symbol ()
   :tags '(fontification syntax-table)