Improve namespace font-locking

Author: Bozhidar Batsov

clojure-mode.el

@@ -500,7 +500,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_-]*\\.?\\)+" 0 font-lock-type-face)
       ;; foo/ Foo/
       ("\\<\\([a-zA-Z][a-z0-9_-]*\\)/" 1 font-lock-type-face)
       ;; fooBar

test.clj

@@ -1,6 +1,7 @@
 ;;; font locking
 (ns clojure-mode.demo
-  (:use [clojure.something]))
+  (:require [clojure.something]
+            [something.s]))
 
 (comment ;; for indentation
   (with-hi heya

test/clojure-mode-test.el

@@ -99,6 +99,11 @@ POS."
     (should (eq (clojure-test-face-at 2 3) 'font-lock-type-face))
     (should (eq (clojure-test-face-at 5 14) 'font-lock-type-face))))
 
+(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)))
+
 (ert-deftest clojure-mode-syntax-table/namespaced-symbol ()
   :tags '(fontification syntax-table)
   (clojure-test-with-temp-buffer "clo.core/something"