FIXED: properly update query highlighting in the toplevel

diff --git a/sweeprolog.el b/sweeprolog.el
index 8dbaf44a253497e2a1bd977686d9c823d1f34a5e..13ad70fbcc3aba3819e9b42f49eaed6cec66edfe 100644 (file)
--- 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"