[nongnu] elpa/sweeprolog 5b54d23b8b 086/166: ENHANCED: apply an appropriate face to global predicate calls

[ELPA Syncer]

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

    ENHANCED: apply an appropriate face to global predicate calls
---
 sweep.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/sweep.el b/sweep.el
index 932eec322e..44baa158e9 100644
--- a/sweep.el
+++ b/sweep.el
@@ -743,12 +743,14 @@ module name, F is a functor name and N is its arity."
                               (`("meta"      . ,_) sweep-meta-face)
                               (`("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)
                               (other (message "unknown goal color term %S" 
other) sweep-goal-face))))
         (`("syntax_error" ,_message ,_eb ,_ee)