Strings are sexps.

diff --git a/context-coloring.el b/context-coloring.el
index 9a5f022160ec942948607f7dd85880f9cdfa22f2..1cc93e53db326295ef2f1cd0fa89438dbce9b612 100644 (file)
--- a/context-coloring.el
+++ b/context-coloring.el
@@ -652,6 +652,8 @@ provide visually \"instant\" updates at 60 frames per second.")
       (context-coloring-elisp-colorize-symbol))
      ((= syntax-code context-coloring-EXPRESSION-PREFIX-CODE)
       (context-coloring-elisp-colorize-expression-prefix))
+     ((= syntax-code context-coloring-STRING-QUOTE-CODE)
+      (context-coloring-elisp-colorize-string))
      (t
       (forward-char)))))
 
@@ -678,10 +680,10 @@ provide visually \"instant\" updates at 60 frames per second.")
                          (point)))
       (setq syntax-code (context-coloring-get-syntax-code))
       (cond
-       ((= syntax-code context-coloring-COMMENT-START-CODE)
-        (context-coloring-elisp-colorize-comment))
        ((= syntax-code context-coloring-STRING-QUOTE-CODE)
         (context-coloring-elisp-colorize-string))
+       ((= syntax-code context-coloring-COMMENT-START-CODE)
+        (context-coloring-elisp-colorize-comment))
        ((= syntax-code context-coloring-ESCAPE-CODE)
         (forward-char 2))
        (t
@@ -697,12 +699,11 @@ provide visually \"instant\" updates at 60 frames per second.")
        ((or (= syntax-code context-coloring-OPEN-PARENTHESIS-CODE)
             (= syntax-code context-coloring-WORD-CODE)
             (= syntax-code context-coloring-SYMBOL-CODE)
-            (= syntax-code context-coloring-EXPRESSION-PREFIX-CODE))
+            (= syntax-code context-coloring-EXPRESSION-PREFIX-CODE)
+            (= syntax-code context-coloring-STRING-QUOTE-CODE))
         (context-coloring-elisp-colorize-sexp))
        ((= syntax-code context-coloring-COMMENT-START-CODE)
         (context-coloring-elisp-colorize-comment))
-       ((= syntax-code context-coloring-STRING-QUOTE-CODE)
-        (context-coloring-elisp-colorize-string))
        ((= syntax-code context-coloring-ESCAPE-CODE)
         (forward-char 2))
        (t

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

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