Handle octothorpes.

diff --git a/context-coloring.el b/context-coloring.el
index 089236b51bbff2074a2163bc168b281f4cb88987..459aca0e75856cd65ad326c752aba53ca9a49693 100644 (file)
--- a/context-coloring.el
+++ b/context-coloring.el
@@ -326,6 +326,7 @@ generated by `js2-mode'."
 (defconst context-coloring-COMMENT-START-CODE 11)
 (defconst context-coloring-COMMENT-END-CODE 12)
 
+(defconst context-coloring-OCTOTHORPE-CHAR (string-to-char "#"))
 (defconst context-coloring-APOSTROPHE-CHAR (string-to-char "'"))
 (defconst context-coloring-OPEN-PARENTHESIS-CHAR (string-to-char "("))
 (defconst context-coloring-COMMA-CHAR (string-to-char ","))
@@ -597,7 +598,8 @@ generated by `js2-mode'."
         char)
     (setq char (char-after))
     (cond
-     ((= char context-coloring-APOSTROPHE-CHAR)
+     ((or (= char context-coloring-APOSTROPHE-CHAR)
+          (= char context-coloring-OCTOTHORPE-CHAR))
       (forward-sexp))
      ((= char context-coloring-BACKTICK-CHAR)
       (setq start (point))

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