[nongnu] elpa/sweeprolog c7b7300bda 2/6: FIXED: properly update query highlighting in the toplevel

[ELPA Syncer]

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

    FIXED: properly update query highlighting in the toplevel
---
 sweeprolog.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/sweeprolog.el b/sweeprolog.el
index 8dbaf44a25..13ad70fbcc 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -1586,6 +1586,13 @@ When non-nil, only predicates whose name contains PREFIX 
are returned."
   (:inherit default)
   "Top terms.")
 
+(sweeprolog-defface
+  body
+  (:inherit default)
+  (:inherit default)
+  (:inherit default)
+  "Clause and query bodies.")
+
 (sweeprolog-defface
   directive
   (:inherit default)
@@ -1779,6 +1786,8 @@ When non-nil, only predicates whose name contains PREFIX 
are returned."
      (list (list beg end (sweeprolog-op-type-face))))
     ("directive"
      (list (list beg end nil) (list beg end (sweeprolog-directive-face))))
+    ("body"
+     (list (list beg end nil) (list beg end (sweeprolog-body-face))))
     ("clause"
      (list (list beg end nil) (list beg end (sweeprolog-clause-face))))
     ("term"