branch: master
commit 5a8186bcbfc761e96021033850d8958b4367e27f
Author: Jackson Ray Hamilton <[email protected]>
Commit: Jackson Ray Hamilton <[email protected]>
Color comments and strings inside defuns.
---
context-coloring.el | 3 ++-
test/context-coloring-test.el | 1 +
test/fixtures/let.el | 1 +
3 files changed, 4 insertions(+), 1 deletions(-)
diff --git a/context-coloring.el b/context-coloring.el
index 180752c..9a5f022 100644
--- 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 a4b31d5..85b700e 100644
--- 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 11637b1..5507b47 100644
--- a/test/fixtures/let.el
+++ b/test/fixtures/let.el
@@ -1,4 +1,5 @@
(let (a
+ ;; comment
(b a)
(c free)
(d (let (a
