branch: elpa/sweeprolog
commit 5b54d23b8b81297a1cd4a2606aea735461b636cb
Author: Eshel Yaron <m...@eshelyaron.com>
Commit: Eshel Yaron <m...@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)
