[Fix #496] Highlight [[var]] style comments

Author: rpkarlsson

clojure-mode-font-lock-test.el

@@ -110,6 +110,23 @@ POS."
   (should (equal (clojure-test-face-at 4 5 "#\"a\\bc\\n\"")
                  '(bold font-lock-string-face))))
 
+(ert-deftest clojure-mode-syntax-table/stuff-in-double-brackets ()
+  :tags '(fontification syntax-table)
+  (should (equal (clojure-test-face-at 1 3 "\"[[#'s/trim]]\"")
+                 font-lock-string-face))
+  (should (equal (clojure-test-face-at 4 11 "\"[[#'s/trim]]\"")
+                 '(font-lock-constant-face font-lock-string-face)))
+  (should (equal (clojure-test-face-at 12 14 "\"[[#'s/trim]]\"")
+                 font-lock-string-face))
+  (should (equal (clojure-test-face-at 1 1 ";[[#'s/trim]]")
+                 font-lock-comment-delimiter-face))
+  (should (equal (clojure-test-face-at 2 3 ";[[#'s/trim]]")
+                 font-lock-comment-face))
+  (should (equal (clojure-test-face-at 4 11 ";[[#'s/trim]]")
+                 '(font-lock-constant-face font-lock-comment-face)))
+  (should (equal (clojure-test-face-at 12 13 ";[[#'s/trim]]")
+                 font-lock-comment-face)))
+
 (ert-deftest clojure-mode-syntax-table/fontify-let-when-while-type-forms ()
   :tags '(fontification syntax-table)
   (should (equal (clojure-test-face-at 2 11 "(when-alist [x 1]\n  ())")