ENHANCED: apply an appropriate face to global predicate calls

diff --git a/sweep.el b/sweep.el
index 932eec322e161603b38e96e6e517d088a7dc5443..44baa158e9d7596fcf35230ae2ea6c3b7bf804c6 100644 (file)
--- 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)