Mercurial > emacs
changeset 73100:20bdb0abafe2
(font-lock-compile-keywords): Allow value of
syntax-begin-function to enable paren-column-0 highlighting.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 24 Sep 2006 20:37:58 +0000 |
| parents | 59243837a57a |
| children | b584d304b053 |
| files | lisp/font-lock.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/font-lock.el Sun Sep 24 20:37:13 2006 +0000 +++ b/lisp/font-lock.el Sun Sep 24 20:37:58 2006 +0000 @@ -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.