Color comments and strings inside defuns.

diff --git a/context-coloring.el b/context-coloring.el
index 180752c60f429ddb60e4dd6096a3fc95dbde76af..9a5f022160ec942948607f7dd85880f9cdfa22f2 100644 (file)
--- a/context-coloring.el
+++ b/context-coloring.el
@@ -512,7 +512,8 @@ generated by `js2-mode'."
         ;; Skip it.
         (goto-char start)
         (forward-sexp)))))
-    (context-coloring-elisp-pop-scope)))
+    (context-coloring-elisp-pop-scope)
+    (context-coloring-elisp-colorize-comments-and-strings-in-region start end)))
 
 (defun context-coloring-elisp-colorize-lambda ()
   (context-coloring-elisp-colorize-defun t))

diff --git a/test/context-coloring-test.el b/test/context-coloring-test.el
index a4b31d51254a38db816ddf9e0ded4bf2ec0207d1..85b700e8d5b6a7c0b550043a89bd19e15fb3adc3 100644 (file)
--- a/test/context-coloring-test.el
+++ b/test/context-coloring-test.el
@@ -1139,6 +1139,7 @@ ssssssssssss0"))
   (lambda ()
     (context-coloring-test-assert-coloring "
 1111 11
+      cccccccccc
       11 01
       11 00001
       11 2222 22

diff --git a/test/fixtures/let.el b/test/fixtures/let.el
index 11637b1337c2b7557009a38d9acb45d9b489f64b..5507b473145a04cef2085fc3f94e59d27de12f3e 100644 (file)
--- a/test/fixtures/let.el
+++ b/test/fixtures/let.el
@@ -1,4 +1,5 @@
 (let (a
+      ;; comment
       (b a)
       (c free)
       (d (let (a