[nongnu] elpa/sweeprolog c1a6c1e104 1/3: Highlight test case head terms in a dedicated face

[ELPA Syncer]

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

    Highlight test case head terms in a dedicated face
---
 .gitignore    | 4 ++++
 sweeprolog.el | 9 +++++++++
 2 files changed, 13 insertions(+)

diff --git a/.gitignore b/.gitignore
index a9b5819b7f..ee9db441d1 100644
--- a/.gitignore
+++ b/.gitignore
@@ -12,3 +12,7 @@
 /TODO.org
 /auto/
 /sweep.tex
+/#sweeprolog-tests.el#
+/#sweep.pl#
+/sweeprolog-tests.elc
+/sweeprolog.elc
diff --git a/sweeprolog.el b/sweeprolog.el
index 2c9d777a66..3e96f56383 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -1187,6 +1187,13 @@ When non-nil, only predicates whose name contains PREFIX 
are returned."
   (:foreground "cyan" :weight bold)
   "External predicate definitions.")
 
+(sweeprolog-defface
+  head-test
+  (:inherit font-lock-preprocessor-face)
+  (:foreground "#01bdbd" :weight bold)
+  (:foreground "#01bdbd" :weight bold)
+  "Unreferenced predicate definitions.")
+
 (sweeprolog-defface
   head-unreferenced
   (:inherit font-lock-warning-face)
@@ -1652,6 +1659,8 @@ When non-nil, only predicates whose name contains PREFIX 
are returned."
            (list beg end (sweeprolog-comment-face))))
     (`("head" "unreferenced" . ,_)
      (list (list beg end (sweeprolog-head-unreferenced-face))))
+    (`("head" "test" . ,_)
+     (list (list beg end (sweeprolog-head-test-face))))
     (`("head" "meta" . ,_)
      (list (list beg end (sweeprolog-head-meta-face))))
     (`("head" "iso" . ,_)