[nongnu] elpa/sweeprolog 7c5566bd19 5/6: Don't highlight syntax error at the end of the buffer

[ELPA Syncer]

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

    Don't highlight syntax error at the end of the buffer
    
    * sweeprolog.el (sweeprolog--analyze-point): new buffer local
    variable.
    (sweeprolog-analyze-buffer, sweeprolog-analyze-some-terms): let-bind
    it.
    (sweeprolog-analyze-fragment-to-faces): check it before applying
    sweeprolog-syntax-error-face.
---
 sweeprolog.el | 63 +++++++++++++++++++++++++++++++++++------------------------
 1 file changed, 37 insertions(+), 26 deletions(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index 87dfcc33b3..e812a9a5ce 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -465,6 +465,8 @@ buffer where the new predicate defintion should be 
inserted."
 
 (defvar-local sweeprolog--buffer-modified nil)
 
+(defvar-local sweeprolog--analyze-point nil)
+
 
 ;;;; Declarations for functions defined in `sweep-module'
 
@@ -1793,11 +1795,18 @@ resulting list even when found in the current clause."
            (setq cur (point)))
          (skip-chars-forward " \t\n")
          (push (list cur (point) nil) ws)
-         (cons (list beg (point) nil)
-               (append (list (list eb ee nil)
-                             (list eb ee (sweeprolog-around-syntax-error-face))
-                             (list beg end (sweeprolog-syntax-error-face)))
-                       ws)))))
+         (let ((face (or (and (or (and sweeprolog--analyze-point
+                                       (<= end sweeprolog--analyze-point))
+                                  (< (save-excursion
+                                       (sweeprolog-end-of-top-term) (point))
+                                     (point-max)))
+                              (sweeprolog-syntax-error-face))
+                         (sweeprolog-around-syntax-error-face))))
+           (cons (list beg (point) nil)
+                 (append (list (list eb ee nil)
+                               (list eb ee 
(sweeprolog-around-syntax-error-face))
+                               (list beg end face))
+                         ws))))))
     ("unused_import"
      (list (list beg end (sweeprolog-unused-import-face))))
     ("undefined_import"
@@ -2054,7 +2063,8 @@ modified."
     (sweeprolog-xref-buffer)
     (save-restriction
       (widen)
-      (sweeprolog-analyze-region (point-min) (point-max)))
+      (let  ((sweeprolog--analyze-point (point)))
+        (sweeprolog-analyze-region (point-min) (point-max))))
     (setq sweeprolog--buffer-modified nil)))
 
 (defun sweeprolog--buffer-string (filename)
@@ -2085,26 +2095,27 @@ modified."
         (sweeprolog-analyze-region start (point) "true")))))
 
 (defun sweeprolog-analyze-some-terms (beg end &optional _verbose)
-  (save-match-data
-    (save-mark-and-excursion
-      (goto-char beg)
-      (sweeprolog-beginning-of-top-term)
-      (unless (bobp)
-        (forward-char -1)
-        (sweeprolog-beginning-of-top-term)
-        (unless (bobp) (forward-char -1)))
-      (let ((start (point))
-            (cur (point)))
-        (while (and (not (eobp))
-                    (< (point) end))
-          (setq cur (point))
-          (sweeprolog-end-of-top-term)
-          (sweeprolog-analyze-term cur (point)))
-        (setq cur (point))
-        (sweeprolog-end-of-top-term)
-        (skip-chars-forward " \t\n")
-        (sweeprolog-analyze-term cur (point))
-        `(jit-lock-bounds ,start . ,(point))))))
+  (let ((sweeprolog--analyze-point (point)))
+   (save-match-data
+     (save-mark-and-excursion
+       (goto-char beg)
+       (sweeprolog-beginning-of-top-term)
+       (unless (bobp)
+         (forward-char -1)
+         (sweeprolog-beginning-of-top-term)
+         (unless (bobp) (forward-char -1)))
+       (let ((start (point))
+             (cur (point)))
+         (while (and (not (eobp))
+                     (< (point) end))
+           (setq cur (point))
+           (sweeprolog-end-of-top-term)
+           (sweeprolog-analyze-term cur (point)))
+         (setq cur (point))
+         (sweeprolog-end-of-top-term)
+         (skip-chars-forward " \t\n")
+         (sweeprolog-analyze-term cur (point))
+         `(jit-lock-bounds ,start . ,(point)))))))
 
 (defun sweeprolog-syntax-propertize (start end)
   (goto-char start)