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

diff --git a/sweeprolog.el b/sweeprolog.el
index 1c6d1723f6214cd30f847475e898cbccf849011d..9adaab8bf913941069eaa8a7b8e195b6bab814be 100644 (file)
--- 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)