[Fix #338] Font-locking of stuff in backticks

Author: Malabarba

clojure-mode.el

@@ -477,7 +477,8 @@ Called by `imenu--generic-function'."
       ;; fooBar
       ("\\(?:\\<\\|/\\)\\([a-z]+[A-Z]+[a-zA-Z0-9$]*\\>\\)" 1 'clojure-interop-method-face)
       ;; Highlight `code` marks, just like `elisp'.
-      (,(rx "`" (group-n 1 (+ (or (syntax symbol) (syntax word)))) "`")
+      (,(rx "`" (group-n 1 (optional "#'")
+                         (+ (or (syntax symbol) (syntax word)))) "`")
        (1 'font-lock-constant-face prepend))
       ;; Highlight grouping constructs in regular expressions
       (clojure-font-lock-regexp-groups

test/clojure-mode-font-lock-test.el

@@ -103,6 +103,16 @@ POS."
   :tags '(fontification syntax-table)
   (should (equal (clojure-test-face-at 2 11 "{:something 20}") '(clojure-keyword-face))))
 
+(ert-deftest clojure-mode-syntax-table/stuff-in-backticks ()
+  :tags '(fontification syntax-table)
+  (should (equal (clojure-test-face-at 1 2 "\"`#'s/trim`\"") font-lock-string-face))
+  (should (equal (clojure-test-face-at 3 10 "\"`#'s/trim`\"") '(font-lock-constant-face font-lock-string-face)))
+  (should (equal (clojure-test-face-at 11 12 "\"`#'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 2 ";`#'s/trim`") font-lock-comment-face))
+  (should (equal (clojure-test-face-at 3 10 ";`#'s/trim`") '(font-lock-constant-face font-lock-comment-face)))
+  (should (equal (clojure-test-face-at 11 11 ";`#'s/trim`") font-lock-comment-face)))
+
 (ert-deftest clojure-mode-syntax-table/fontify-namespaced-keyword ()
   :tags '(fontification syntax-table)
   (should (equal (clojure-test-face-at 2 2 "{:alias/some 20}")  '(clojure-keyword-face)))