From: Eshel Yaron <me@eshelyaron.com>
Date: Wed, 9 Nov 2022 20:25:20 +0000 (+0200)
Subject: FIXED: clear syntax error face after fix more aggressively
X-Git-Tag: V8.5.20-sweep-0.8.4~3
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1efafd057bc2efa0e97704f291c9c9e4e26ee192;p=dict.git

FIXED: clear syntax error face after fix more aggressively
---

diff --git a/sweeprolog.el b/sweeprolog.el
index 13ad70f..11f6eef 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -1721,13 +1721,19 @@ When non-nil, only predicates whose name contains PREFIX are returned."
     ("var"
      (list (list beg end (sweeprolog-variable-face))))
     ("fullstop"
-     (list (list beg
-                 (save-excursion
-                   (goto-char (min (1+ end) (point-max)))
-                   (skip-chars-forward " \t\n")
-                   (point))
-                 nil)
-           (list beg end (sweeprolog-fullstop-face))))
+     (save-excursion
+       (goto-char (min end (point-max)))
+       (let ((ws nil)
+             (cur (point)))
+         (while (and (forward-comment 1)
+                     (forward-comment -1))
+           (push (list cur (point) nil) ws)
+           (forward-comment 1)
+           (setq cur (point)))
+         (skip-chars-forward " \t\n")
+         (push (list cur (point) nil) ws)
+         (cons (list beg end (sweeprolog-fullstop-face))
+               ws))))
     ("functor"
      (list (list beg end (sweeprolog-functor-face))))
     ("arity"
@@ -1974,6 +1980,9 @@ modified."
         (setq cur (point))
         (sweeprolog-end-of-top-term)
         (sweeprolog-analyze-term cur (point)))
+      (setq cur (point))
+      (sweeprolog-end-of-top-term)
+      (sweeprolog-analyze-term cur (point))
       `(jit-lock-bounds ,start . ,(point)))))
 
 (defun sweeprolog-syntax-propertize (start end)