Add tests for the escape char font-locking

Author: Malabarba

clojure-mode.el

@@ -1338,8 +1338,8 @@ nil."
         (let ((beg (match-beginning 2)))
           (when beg
             (if regex
-                (and (char-before beg) (char-equal ?# (char-before beg)) (1- beg))
-              (when (not (char-equal ?# (char-before beg)))
+                (and (char-before beg) (eq ?# (char-before beg)) (1- beg))
+              (when (not (eq ?# (char-before beg)))
                 beg))))))))
 
 (defun clojure-char-at-point ()

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

@@ -113,6 +113,14 @@ POS."
   (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/stuff-in-backticks ()
+  :tags '(fontification syntax-table)
+  (should (equal (clojure-test-face-at 1 2 "\"a\\bc\\n\"") font-lock-string-face))
+  (should (equal (clojure-test-face-at 3 4 "\"a\\bc\\n\"") '(bold font-lock-string-face)))
+  (should (equal (clojure-test-face-at 5 5 "\"a\\bc\\n\"") font-lock-string-face))
+  (should (equal (clojure-test-face-at 6 7 "\"a\\bc\\n\"") '(bold font-lock-string-face)))
+  (should (equal (clojure-test-face-at 4 5 "#\"a\\bc\\n\"") '(bold font-lock-string-face))))
+
 (ert-deftest clojure-mode-syntax-table/fontify-namespaced-keyword ()
   :tags '(fontification syntax-table)
   (should (equal (clojure-test-face-at 9 11 "(:alias/def x 10)") '(clojure-keyword-face)))