[elpa] master af4f773 33/79: Colorize comments and strings inside backquotes.

[Jackson Ray Hamilton]

branch: master
commit af4f773cabd9deccfabae2a4947178697f60defc
Author: Jackson Ray Hamilton <address@hidden>
Commit: Jackson Ray Hamilton <address@hidden>

    Colorize comments and strings inside backquotes.
---
 context-coloring.el           |    3 ++-
 test/context-coloring-test.el |    4 +++-
 test/fixtures/quote.el        |    4 +++-
 3 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/context-coloring.el b/context-coloring.el
index 61c4163..180752c 100644
--- 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 c0240b5..a4b31d5 100644
--- 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 85b16a5..63892a0 100644
--- 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