emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/sweeprolog 3910fab192 03/13: Support Prettify Symbols and


From: ELPA Syncer
Subject: [nongnu] elpa/sweeprolog 3910fab192 03/13: Support Prettify Symbols and similar minor modes
Date: Sun, 17 Sep 2023 04:00:42 -0400 (EDT)

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

    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'.
---
 sweeprolog.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index 655f395b5c..266db397d5 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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]