diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-09-20 12:04:52 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-09-20 12:04:52 -0400 |
| commit | 9474c70a8442e052bd7b192a515a4fdb1834f49a (patch) | |
| tree | fd34f49c329e8fdc8441437eed713702630eb594 /lisp/font-lock.el | |
| parent | 6afe8168dde7780853003dea2fb9e3a8ba57e2ea (diff) | |
| download | emacs-9474c70a8442e052bd7b192a515a4fdb1834f49a.tar.gz | |
Don't assume syntax-begin-function is a symbol.
* lisp/font-lock.el (font-lock-compile-keywords): Don't assume
syntax-begin-function is a symbol.
Diffstat (limited to 'lisp/font-lock.el')
| -rw-r--r-- | lisp/font-lock.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el index d93cf7184ca..e2660bfab91 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -1752,7 +1752,8 @@ If SYNTACTIC-KEYWORDS is non-nil, it means these keywords are used for (if (and (not syntactic-keywords) (let ((beg-function syntax-begin-function)) (or (eq beg-function 'beginning-of-defun) - (get beg-function 'font-lock-syntax-paren-check))) + (if (symbolp beg-function) + (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. |