[Emacs-diffs] Changes to emacs/lisp/font-lock.el,v

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       06/09/24 20:37:58

Index: font-lock.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/font-lock.el,v
retrieving revision 1.306
retrieving revision 1.307
diff -u -b -r1.306 -r1.307
--- font-lock.el        16 Sep 2006 17:52:32 -0000      1.306
+++ font-lock.el        24 Sep 2006 20:37:58 -0000      1.307
@@ -1646,9 +1646,11 @@
          (cons t (cons keywords
                        (mapcar 'font-lock-compile-keyword keywords))))
     (if (and (not syntactic-keywords)
-            (eq (or syntax-begin-function
-                    font-lock-beginning-of-syntax-function)
-                'beginning-of-defun)
+            (let ((beg-function
+                   (or font-lock-beginning-of-syntax-function
+                       syntax-begin-function)))
+              (or (eq beg-function 'beginning-of-defun)
+                  (get beg-function 'font-lock-syntax-paren-check)))
             (not beginning-of-defun-function))
        ;; Try to detect when a string or comment contains something that
        ;; looks like a defun and would thus confuse font-lock.