Colorize comments and strings inside backquotes.

diff --git a/context-coloring.el b/context-coloring.el
index 61c41635efc3bf18cdb79a2ba0298bbb3124ecaa..180752c60f429ddb60e4dd6096a3fc95dbde76af 100644 (file)
--- a/context-coloring.el
+++ b/context-coloring.el
@@ -613,7 +613,8 @@ generated by `js2-mode'."
             ;; If we don't do this "@" could be interpreted as a symbol.
             (forward-char))
           (context-coloring-forward-sws)
-          (context-coloring-elisp-colorize-sexp)))))))
+          (context-coloring-elisp-colorize-sexp)))
+      (context-coloring-elisp-colorize-comments-and-strings-in-region start end)))))
 
 (defvar context-coloring-parse-interruptable-p t
   "Set this to nil to force parse to continue until finished.")

diff --git a/test/context-coloring-test.el b/test/context-coloring-test.el
index c0240b52f4e41dbbc2a635b4a7df7e198f98f075..a4b31d51254a38db816ddf9e0ded4bf2ec0207d1 100644 (file)
--- a/test/context-coloring-test.el
+++ b/test/context-coloring-test.el
@@ -1099,7 +1099,9 @@ ssssssssssss0"))
 (xxxxx x (x)
   (xx (xx x 111
       111111 1 111 111
-      111111 1 1111111111 11 111 1 111 1 00001 10000 11 00001 1 100001111
+      111111 1 1111111111 11 111 1 111 1 00001 10000 11 00001 1 10000
+                 sss ccc
+                 1111
 
 (xxxxxx '(sss cc
           sss cc

diff --git a/test/fixtures/quote.el b/test/fixtures/quote.el
index 85b16a51adea8d003135db3a7843a888a18b3dba..63892a083eb4b0718dd6546001f30b7df74cf9cf 100644 (file)
--- a/test/fixtures/quote.el
+++ b/test/fixtures/quote.el
@@ -1,7 +1,9 @@
 (defun a (a)
   (or (eq a 'b)
       (equal a '(a b))
-      (equal a `(,(append () `(a b ,(+ 1 free) ,free b) free) b ,free))))
+      (equal a `(,(append () `(a b ,(+ 1 free) ,free b) free) b ,free
+                 "s" ; c
+                 ))))
 
 (append '("a" ; b
           "b" ; a