From: Eshel Yaron <me@eshelyaron.com>
Date: Thu, 14 Sep 2023 16:20:33 +0000 (+0200)
Subject: Support Prettify Symbols and similar minor modes
X-Git-Tag: V9.1.15-sweep-0.25.0~10
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3910fab1924ede9cbc1b9378ca5b67ce54649dcd;p=sweep.git

Support Prettify Symbols and similar minor modes

* sweeprolog.el (sweeprolog-analyze-some-terms): Call
'font-lock-fontify-keywords-region' to support minor modes that
rely on 'font-lock-keywords'.
---

diff --git a/sweeprolog.el b/sweeprolog.el
index 655f395..266db39 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -2982,7 +2982,7 @@ modified."
         (sweeprolog-end-of-top-term)
         (sweeprolog-analyze-region start (point) "true")))))
 
-(defun sweeprolog-analyze-some-terms (beg end &optional _verbose)
+(defun sweeprolog-analyze-some-terms (beg end &optional verbose)
   (let ((sweeprolog--analyze-point (point)))
    (save-match-data
      (save-mark-and-excursion
@@ -3001,6 +3001,7 @@ modified."
          (sweeprolog-end-of-top-term)
          (skip-chars-forward " \t\n")
          (sweeprolog-analyze-term cur (point))
+         (font-lock-fontify-keywords-region start (point) verbose)
          `(jit-lock-bounds ,start . ,(point)))))))
 
 (defun sweeprolog-syntax-propertize (start end)