From: Eshel Yaron <me@eshelyaron.com>
Date: Thu, 14 Sep 2023 20:47:07 +0000 (+0200)
Subject: ; Fix error on Emacs 27 with no 'font-lock-keywords'
X-Git-Tag: V9.1.15-sweep-0.25.0~7
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3b08a468660482f4bc46d18c2da9ae799cdd0c5d;p=sweep.git

; Fix error on Emacs 27 with no 'font-lock-keywords'
---

diff --git a/sweeprolog.el b/sweeprolog.el
index 1c6d172..9adaab8 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -3001,7 +3001,8 @@ modified."
          (sweeprolog-end-of-top-term)
          (skip-chars-forward " \t\n")
          (sweeprolog-analyze-term cur (point))
-         (font-lock-fontify-keywords-region start (point) verbose)
+         (when font-lock-keywords
+           (font-lock-fontify-keywords-region start (point) verbose))
          `(jit-lock-bounds ,start . ,(point)))))))
 
 (defun sweeprolog-syntax-propertize (start end)