Refine keyword literals font-locking

Author: Bozhidar Batsov

clojure-mode.el

@@ -489,7 +489,7 @@ Called by `imenu--generic-function'."
       ;; FIXME: handle properly punctuations characters (commas after a character are problematic)
       ("\\\\[a-z0-9]+\\>" 0 'clojure-character-face)
       ;; Constant values (keywords), including as metadata e.g. ^:static
-      ("\\<^?:\\(\\sw\\|\\s_\\)+\\(\\>\\|\\_>\\)" 0 'clojure-keyword-face)
+      ("\\<^?\\(:\\(\\sw\\|\\s_\\)+\\(\\>\\|\\_>\\)\\)" 1 'clojure-keyword-face)
       ;; cljx annotations (#+clj and #+cljs)
       ("#\\+cljs?\\>" 0 font-lock-preprocessor-face)
       ;; Java interop highlighting

test/clojure-mode-test.el

@@ -171,6 +171,12 @@ POS."
   :tags '(fontification syntax-table)
   (should (eq (clojure-test-face-at 4 8 "(= false x)") 'font-lock-constant-face)))
 
+(ert-deftest clojure-mode-syntax-table/keyword-meta ()
+  :tags '(fontification syntax-table)
+  (clojure-test-with-temp-buffer "^:meta-data"
+    (should (eq (clojure-test-face-at 1 1) nil))
+    (should (eq (clojure-test-face-at 2 11) 'clojure-keyword-face))))
+
 (ert-deftest clojure-mode-syntax-table/characters ()
   :tags '(fontification syntax-table)
   (should (eq (clojure-test-face-at 1 2 "\\a") 'clojure-character-face))