[nongnu] elpa/sweeprolog 1efafd057b 3/6: FIXED: clear syntax error face after fix more aggressively

[ELPA Syncer]

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

    FIXED: clear syntax error face after fix more aggressively
---
 sweeprolog.el | 23 ++++++++++++++++-------
 1 file changed, 16 insertions(+), 7 deletions(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index 13ad70fbcc..11f6eeff4d 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)