FIXED: handle some missing color terms

diff --git a/README.org b/README.org
index f3f37ec2e508145778924f6f06b85f9cd3952be4..782711748ee36edd1cb05b99c6861fc3ccd8e0e0 100644 (file)
--- a/README.org
+++ b/README.org
@@ -164,7 +164,6 @@ second (output) Prolog argument converted to an Elisp object (see
 [[Conversion of Prolog terms to Elisp objects]]).  If the query failed,
 =sweep-next-solution= returns nil.
 
-
 #+FINDEX: sweep-cut-query
 #+FINDEX: sweep-close-query
 =sweep= only executes one Prolog query at a given time, thus queries

diff --git a/sweep.el b/sweep.el
index 096edd59fe9dc4e2d5d2be766b1170b676f3d391..bad11099ce46c4f895172cf201746078ec01e3cc 100644 (file)
--- a/sweep.el
+++ b/sweep.el
@@ -732,9 +732,9 @@ module name, F is a functor name and N is its arity."
                               (`("meta" . ,_) sweep-head-meta-face)
                               (`("exported" . ,_) sweep-head-exported-face)
                               (`("hook" . ,_) sweep-head-hook-face)
-                              (`(,(rx (seq "extern(")) . ,_) sweep-head-extern-face)
-                              (`(,(rx (seq "public ")) . ,_) sweep-head-public-face)
-                              (`(,(rx (seq "local(")) . ,_) sweep-head-local-face)
+                              (`(,(rx "extern(") . ,_) sweep-head-extern-face)
+                              (`(,(rx "public ") . ,_) sweep-head-public-face)
+                              (`(,(rx "local(")  . ,_) sweep-head-local-face)
                               (other (message "unknown head color term %S" other) sweep-head-local-face))))
         (`("goal" . ,g)
          (put-text-property beg end 'font-lock-face
@@ -744,14 +744,14 @@ module name, F is a functor name and N is its arity."
                               (`("built_in"  . ,_) sweep-built-in-face)
                               (`("undefined" . ,_) sweep-undefined-face)
                               (`("global" . ,_) sweep-global-face)
-                              (`(,(rx (seq "dynamic ")) . ,_) sweep-dynamic-face)
-                              (`(,(rx (seq "multifile ")) . ,_) sweep-multifile-face)
-                              (`(,(rx (seq "thread_local ")) . ,_) sweep-thread-local-face)
-                              (`(,(rx (seq "extern(")) . ,_) sweep-extern-face)
-                              (`(,(rx (seq "autoload(")) . ,_) sweep-autoload-face)
-                              (`(,(rx (seq "imported(")) . ,_) sweep-imported-face)
-                              (`(,(rx (seq "global(")) . ,_) sweep-global-face)
-                              (`(,(rx (seq "local(")) . ,_) sweep-local-face)
+                              (`(,(rx "dynamic ") . ,_) sweep-dynamic-face)
+                              (`(,(rx "multifile ") . ,_) sweep-multifile-face)
+                              (`(,(rx "thread_local ") . ,_) sweep-thread-local-face)
+                              (`(,(rx "extern(") . ,_) sweep-extern-face)
+                              (`(,(rx "autoload(") . ,_) sweep-autoload-face)
+                              (`(,(rx "imported(") . ,_) sweep-imported-face)
+                              (`(,(rx "global(") . ,_) sweep-global-face)
+                              (`(,(rx "local(") . ,_) sweep-local-face)
                               (other (message "unknown goal color term %S" other) sweep-goal-face))))
         (`("syntax_error" ,_message ,_eb ,_ee)
          (put-text-property beg end 'font-lock-face sweep-syntax-error-face))