Pass ignored test with recursive colorizer.

diff --git a/context-coloring.el b/context-coloring.el
index 5b5fb0899361e404c91724f8061aa4a593a1d7df..ec8cb4aaa1ecad11558501fc1409ab99cd6bb032 100644 (file)
--- a/context-coloring.el
+++ b/context-coloring.el
@@ -403,8 +403,11 @@ generated by `js2-mode'."
   "\\`[^&:]")
 
 (defconst context-coloring-ignored-word-regexp
-  (concat "\\`[&:-+]?[0-9]\\|" (context-coloring-exact-or-regexp
-                                '("t" "nil" "." "?"))))
+  (context-coloring-join (list "\\`[-+]?[0-9]"
+                               "\\`[&:].+"
+                               (context-coloring-exact-or-regexp
+                                '("t" "nil" "." "?")))
+                         "\\|"))
 
 (defconst context-coloring-WORD-CODE 2)
 (defconst context-coloring-SYMBOL-CODE 3)

diff --git a/test/context-coloring-test.el b/test/context-coloring-test.el
index 2d8cfc9ccb073c3781503af53633f6eaf0517d42..061ce28ad703673fbe65303a0591227eda6c1f4f 100644 (file)
--- a/test/context-coloring-test.el
+++ b/test/context-coloring-test.el
@@ -1119,11 +1119,11 @@ ssssssssssss0"))
 ;;   :before (lambda ()
 ;;             (setq context-coloring-syntactic-strings t)))
 
-;; (context-coloring-test-deftest-emacs-lisp ignored
-;;   (lambda ()
-;;     (context-coloring-test-assert-coloring "
-;; (xxxxx x ()
-;;   (x x 1 11 11 111 11 1 111 (1 1 1)))")))
+(context-coloring-test-deftest-emacs-lisp ignored
+  (lambda ()
+    (context-coloring-test-assert-coloring "
+(xxxxx x ()
+  (x x 1 11 11 111 11 1 111 (1 1 1)))")))
 
 ;; (context-coloring-test-deftest-emacs-lisp let
 ;;   (lambda ()