emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 67576b5 72/79: Skip all insignificant expression prefixes.


From: Jackson Ray Hamilton
Subject: [elpa] master 67576b5 72/79: Skip all insignificant expression prefixes.
Date: Sun, 14 Jun 2015 00:05:47 +0000

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

    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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]