From: Eshel Yaron <me@eshelyaron.com>
Date: Sat, 10 Sep 2022 11:20:29 +0000 (+0300)
Subject: FIXED: handle some missing color terms
X-Git-Tag: v0.2.0~14
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ecc36d67e1fa63075527144686cc9a88e214d1ea;p=dict.git

FIXED: handle some missing color terms
---

diff --git a/README.org b/README.org
index f3f37ec..7827117 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 096edd5..bad1109 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))