Re: font-locking and open parens in column zero

[Richard Stallman]

What would you think of something like this?

*** font-lock.el        16 Sep 2006 13:50:14 -0400      1.306
--- font-lock.el        22 Sep 2006 17:29:23 -0400      
***************
*** 1646,1654 ****
          (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)
             (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.
--- 1646,1656 ----
          (cons t (cons keywords
                        (mapcar 'font-lock-compile-keyword keywords))))
      (if (and (not syntactic-keywords)
!            (let ((beg-function
!                   (or syntax-begin-function
!                       font-lock-beginning-of-syntax-function)))
!              (or (eq beg-function 'beginning-of-defun)
!                  (get beginning-of-defun '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.