[nongnu] elpa/sweeprolog d7b3dd6f87 1/8: * (sweeprolog-maybe-syntax-error-face): don't error in top-level

[ELPA Syncer]

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

    * (sweeprolog-maybe-syntax-error-face): don't error in top-level
---
 sweeprolog.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index 74af0879cd..92cc38d8e4 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -1717,12 +1717,13 @@ resulting list even when found in the current clause."
     (font-lock-unfontify-region beg end)))
 
 (defun sweeprolog-maybe-syntax-error-face (end)
-  (or (and (or (and sweeprolog--analyze-point
-                    (<= (save-excursion
-                          (goto-char sweeprolog--analyze-point)
-                          (sweeprolog-beginning-of-top-term)
-                          (1- (point)))
-                        (1+ end) sweeprolog--analyze-point))
+  (or (and (or (derived-mode-p 'sweeprolog-top-level-mode)
+               (and sweeprolog--analyze-point
+                       (<= (save-excursion
+                             (goto-char sweeprolog--analyze-point)
+                             (sweeprolog-beginning-of-top-term)
+                             (1- (point)))
+                           (1+ end) sweeprolog--analyze-point))
                (< (save-excursion
                     (goto-char sweeprolog--analyze-point)
                     (sweeprolog-end-of-top-term) (point))