From: Eshel Yaron <me@eshelyaron.com>
Date: Thu, 8 Sep 2022 13:53:39 +0000 (+0300)
Subject: ENHANCED: apply an appropriate face to global predicate calls
X-Git-Tag: v0.2.0~17
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5b54d23b8b81297a1cd4a2606aea735461b636cb;p=sweep.git

ENHANCED: apply an appropriate face to global predicate calls
---

diff --git a/sweep.el b/sweep.el
index 932eec3..44baa15 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)