Fix a ns font-locking bug

Everything appearing after the word ns was treated as
namespace (.e.g. [ns name]). Now we check if ns is preceded by a (.

Author: Bozhidar Batsov

clojure-mode.el

@@ -499,7 +499,7 @@ Called by `imenu--generic-function'."
       ;; foo.bar.baz
       ("\\<^?\\([a-z][a-z0-9_-]+\\.\\([a-z][a-z0-9_-]*\\.?\\)+\\)" 1 font-lock-type-face)
       ;; (ns namespace) - special handling for single segment namespaces
-      (,(concat "\\<ns\\>[ \r\n\t]*"
+      (,(concat "(\\<ns\\>[ \r\n\t]*"
                 ;; Possibly metadata
                 "\\(?:\\^?{[^}]+}[ \r\n\t]*\\)*"
                 ;; namespace

test/clojure-mode-test.el

@@ -217,7 +217,8 @@ POS."
 (ert-deftest clojure-mode-syntax-table/ns-macro ()
   :tags '(fontification syntax-table)
   (should (eq (clojure-test-face-at 5 8 "(ns name)") 'font-lock-type-face))
-  (should (eq (clojure-test-face-at 5 13 "(ns name.name)") 'font-lock-type-face)))
+  (should (eq (clojure-test-face-at 5 13 "(ns name.name)") 'font-lock-type-face))
+  (should (eq (clojure-test-face-at 1 10 "[ns name]") nil)))
 
 (provide 'clojure-mode-test)