diff options
| author | Colin Walters | 2002-06-09 00:40:25 +0000 |
|---|---|---|
| committer | Colin Walters | 2002-06-09 00:40:25 +0000 |
| commit | e9476ca8e2d271bc2f27cc0f81899b5c464becba (patch) | |
| tree | 4422e6f8e4d794844d1b6d7a911be5799450f365 /lisp | |
| parent | df2d7e047ee7f565d16ba57d2e87fe84809dfef4 (diff) | |
| download | emacs-e9476ca8e2d271bc2f27cc0f81899b5c464becba.tar.gz emacs-e9476ca8e2d271bc2f27cc0f81899b5c464becba.zip | |
(font-lock-set-defaults-1): Variable alist is now set in
`font-lock-set-defaults'.
Diffstat (limited to 'lisp')
| -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). |