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

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

[nongnu] elpa/rainbow-delimiters 93cd2dc873 179/188: syntax-begin-functi


From: ELPA Syncer
Subject: [nongnu] elpa/rainbow-delimiters 93cd2dc873 179/188: syntax-begin-function is obsolete, so test for its existence
Date: Sat, 1 Jan 2022 00:59:03 -0500 (EST)

branch: elpa/rainbow-delimiters
commit 93cd2dc873e7fedca7abc599cd97d46db4376ac7
Author: Fanael Linithien <fanael4@gmail.com>
Commit: Fanael Linithien <fanael4@gmail.com>

    syntax-begin-function is obsolete, so test for its existence
---
 rainbow-delimiters.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/rainbow-delimiters.el b/rainbow-delimiters.el
index f53923c126..5f30e7cc2f 100644
--- a/rainbow-delimiters.el
+++ b/rainbow-delimiters.el
@@ -7,7 +7,7 @@
 ;;         Fanael Linithien <fanael4@gmail.com>
 ;; Maintainer: Fanael Linithien <fanael4@gmail.com>
 ;; Created: 2010-09-02
-;; Version: 2.1.2
+;; Version: 2.1.3
 ;; Keywords: faces, convenience, lisp, tools
 ;; Homepage: https://github.com/Fanael/rainbow-delimiters
 
@@ -260,7 +260,7 @@ Used by font-lock for dynamic highlighting."
   (when rainbow-delimiters-mode
     (font-lock-add-keywords nil rainbow-delimiters--font-lock-keywords 'append)
     (set (make-local-variable 'jit-lock-contextually) t)
-    (when (or syntax-begin-function
+    (when (or (bound-and-true-p syntax-begin-function)
               (bound-and-true-p font-lock-beginning-of-syntax-function))
       ;; We're going to modify `syntax-begin-function', so flush the cache to
       ;; avoid getting cached values that used the old value.
@@ -268,7 +268,8 @@ Used by font-lock for dynamic highlighting."
     ;; `syntax-begin-function' may break the assumption we rely on that
     ;; `syntax-ppss' is exactly equivalent to `parse-partial-sexp' from
     ;; `point-min'. Just don't use it, the performance hit should be 
negligible.
-    (set (make-local-variable 'syntax-begin-function) nil)
+    (when (boundp 'syntax-begin-function)
+      (set (make-local-variable 'syntax-begin-function) nil))
     ;; Obsolete equivalent of `syntax-begin-function'.
     (when (boundp 'font-lock-beginning-of-syntax-function)
       (set (make-local-variable 'font-lock-beginning-of-syntax-function) nil)))



reply via email to

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