diff options
| -rw-r--r-- | lisp/font-lock.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el index ba8b25f0980..eb69a93f846 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el | |||
| @@ -152,9 +152,9 @@ | |||
| 152 | ;; "Default expressions to highlight in Foo mode.") | 152 | ;; "Default expressions to highlight in Foo mode.") |
| 153 | ;; | 153 | ;; |
| 154 | ;; (add-hook 'foo-mode-hook | 154 | ;; (add-hook 'foo-mode-hook |
| 155 | ;; (function (lambda () | 155 | ;; (lambda () |
| 156 | ;; (make-local-variable 'font-lock-defaults) | 156 | ;; (make-local-variable 'font-lock-defaults) |
| 157 | ;; (setq font-lock-defaults '(foo-font-lock-keywords t))))) | 157 | ;; (setq font-lock-defaults '(foo-font-lock-keywords t)))) |
| 158 | 158 | ||
| 159 | ;;; Adding Font Lock support for modes: | 159 | ;;; Adding Font Lock support for modes: |
| 160 | 160 | ||
| @@ -1465,9 +1465,8 @@ A LEVEL of nil is equal to a LEVEL of 0, a LEVEL of t is equal to | |||
| 1465 | (when (nth 4 defaults) | 1465 | (when (nth 4 defaults) |
| 1466 | (set (make-local-variable 'font-lock-beginning-of-syntax-function) | 1466 | (set (make-local-variable 'font-lock-beginning-of-syntax-function) |
| 1467 | (nth 4 defaults))) | 1467 | (nth 4 defaults))) |
| 1468 | ;; Variable alist? | 1468 | ;; The variable alist is set in font-core.el. |
| 1469 | (dolist (x (nthcdr 5 defaults)) | 1469 | |
| 1470 | (set (make-local-variable (car x)) (cdr x))) | ||
| 1471 | ;; Setup `font-lock-keywords' last because its value might depend | 1470 | ;; Setup `font-lock-keywords' last because its value might depend |
| 1472 | ;; on other settings (e.g. font-lock-compile-keywords uses | 1471 | ;; on other settings (e.g. font-lock-compile-keywords uses |
| 1473 | ;; font-lock-beginning-of-syntax-function). | 1472 | ;; font-lock-beginning-of-syntax-function). |