From: Eshel Yaron <me@eshelyaron.com>
Date: Wed, 9 Nov 2022 20:24:27 +0000 (+0200)
Subject: FIXED: properly update query highlighting in the toplevel
X-Git-Tag: V8.5.20-sweep-0.8.4~4
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c7b7300bda5d9b5776e6e8ffb6621fc9a48bea7f;p=dict.git

FIXED: properly update query highlighting in the toplevel
---

diff --git a/sweeprolog.el b/sweeprolog.el
index 8dbaf44..13ad70f 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"