[elpa] master f3697c0 35/79: Strings are sexps.

[Jackson Ray Hamilton]

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

    Strings are sexps.
---
 context-coloring.el           |   11 ++++++-----
 test/context-coloring-test.el |    1 +
 test/fixtures/let.el          |    1 +
 3 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/context-coloring.el b/context-coloring.el
index 9a5f022..1cc93e5 100644
--- 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 85b700e..5726421 100644
--- 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 5507b47..ac3de2d 100644
--- 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