branch: master
commit 67576b5ed1b07e448ea13dedb613c4543c907caf
Author: Jackson Ray Hamilton <jack...@jacksonrayhamilton.com>
Commit: Jackson Ray Hamilton <jack...@jacksonrayhamilton.com>
Skip all insignificant expression prefixes.
---
context-coloring.el | 5 ++---
test/context-coloring-test.el | 2 +-
test/fixtures/ignored.el | 2 +-
3 files changed, 4 insertions(+), 5 deletions(-)
diff --git a/context-coloring.el b/context-coloring.el
index fc82548..a9bcdac 100644
--- 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 56d072c..291b36a 100644
--- 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 ce7774e..1f5fd42 100644
--- 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)))
