Improve font-locking of punctuation characters

Author: Bozhidar Batsov

clojure-mode.el

@@ -477,8 +477,8 @@ Called by `imenu--generic-function'."
          "\\>")
        0 font-lock-constant-face)
       ;; Character literals - \1, \a, \newline, \u0000
-      ;; FIXME: handle properly punctuation characters (commas after a character are problematic)
-      ("\\\\[a-z0-9]+\\>" 0 'clojure-character-face)
+      ;; FIXME: handle properly some punctuation characters (like commas and semicolumns)
+      ("\\\\\\([[:punct:]]\\|[a-z0-9]+\\)\\>" 0 'clojure-character-face)
       ;; Constant values (keywords), including as metadata e.g. ^:static
       ("\\<^?\\(:\\(\\sw\\|\\s_\\)+\\(\\>\\|\\_>\\)\\)" 1 'clojure-keyword-face)
       ;; cljx annotations (#+clj and #+cljs)

test.clj

@@ -17,7 +17,7 @@
     minnow))
 
 ;; character literals
-[\a \newline \,, dfdfdf  \.]
+[\a \newline \u0032 \/ \+ \,, \;]
 
 ;; cljx
 (defn x-to-string

test/clojure-mode-test.el

@@ -195,7 +195,9 @@ POS."
   (should (eq (clojure-test-face-at 1 2 "\\a") 'clojure-character-face))
   (should (eq (clojure-test-face-at 1 8 "\\newline") 'clojure-character-face))
   (should (eq (clojure-test-face-at 1 2 "\\1") 'clojure-character-face))
-  (should (eq (clojure-test-face-at 1 6 "\\u0032") 'clojure-character-face)))
+  (should (eq (clojure-test-face-at 1 6 "\\u0032") 'clojure-character-face))
+  (should (eq (clojure-test-face-at 1 2 "\\+") 'clojure-character-face))
+  (should (eq (clojure-test-face-at 1 2 "\\.") 'clojure-character-face)))
 
 (ert-deftest clojure-mode-syntax-table/cljx ()
   :tags '(fontification syntax-table)