Skip all insignificant expression prefixes.

diff --git a/context-coloring.el b/context-coloring.el
index fc82548e01afc3d598d081852cd9d3e71c8b766d..a9bcdaced2877e6f85a9d42dc51960ec048ed1cf 100644 (file)
--- a/context-coloring.el
+++ b/context-coloring.el
@@ -908,10 +908,9 @@ point.  It could be a quoted or backquoted expression."
         start
         end)
     (cond
-     ((or (= char context-coloring-APOSTROPHE-CHAR)
-          (= char context-coloring-OCTOTHORPE-CHAR))
+     ((/= char context-coloring-BACKTICK-CHAR)
       (context-coloring-elisp-forward-sexp))
-     ((= char context-coloring-BACKTICK-CHAR)
+     (t
       (setq start (point))
       (setq end (progn (forward-sexp)
                        (point)))

diff --git a/test/context-coloring-test.el b/test/context-coloring-test.el
index 56d072ccf0eabe1f0e2cbb28c6f8b0cc3064d943..291b36a1006f0cc29ce392c37ca04fdae625d707 100644 (file)
--- a/test/context-coloring-test.el
+++ b/test/context-coloring-test.el
@@ -1131,7 +1131,7 @@ ssssssssssss0"))
   (lambda ()
     (context-coloring-test-assert-coloring "
 (xxxxx x ()
-  (x x 1 11 11 111 111 11 11 1 111 (1 1 1)))")))
+  (x x 1 11 11 111 111 11 11 11 1 111 (1 1 1)))")))
 
 (context-coloring-test-deftest-emacs-lisp sexp
   (lambda ()

diff --git a/test/fixtures/ignored.el b/test/fixtures/ignored.el
index ce7774e7eac2e940da2d23c8dbad0906d518b762..1f5fd42e534beba1a6d21a9a73270f269d82f0c4 100644 (file)
--- a/test/fixtures/ignored.el
+++ b/test/fixtures/ignored.el
@@ -1,2 +1,2 @@
 (defun a ()
-  (+ a 1 +1 -1 1.0 #x0 \a :a t nil (0 . 0)))
+  (+ a 1 +1 -1 1.0 #x0 ,a \a :a t nil (0 . 0)))