[nongnu] elpa/sweeprolog ecc36d67e1 089/166: FIXED: handle some missing color terms

[ELPA Syncer]

branch: elpa/sweeprolog
commit ecc36d67e1fa63075527144686cc9a88e214d1ea
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    FIXED: handle some missing color terms
---
 README.org |  1 -
 sweep.el   | 22 +++++++++++-----------
 2 files changed, 11 insertions(+), 12 deletions(-)

diff --git a/README.org b/README.org
index f3f37ec2e5..782711748e 100644
--- 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 096edd59fe..bad11099ce 100644
--- 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))