From ecc36d67e1fa63075527144686cc9a88e214d1ea Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Sat, 10 Sep 2022 14:20:29 +0300 Subject: [PATCH] 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 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)) -- 2.39.2