diff options
| author | Colin Walters <[email protected]> | 2002-06-12 04:54:41 +0000 |
|---|---|---|
| committer | Colin Walters <[email protected]> | 2002-06-12 04:54:41 +0000 |
| commit | 93e5c2b583ef02132623197a090dd27eeb08ae05 (patch) | |
| tree | db6f3e9447a5f3ea208591701aa78924ffc41934 | |
| parent | 61fd2c68327f5ec3785ff7493b975aec905d882c (diff) | |
(font-lock-set-defaults-1): Set variable alist here.
| -rw-r--r-- | lisp/font-lock.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el index eb69a93f84..04d422b794 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -1465,8 +1465,9 @@ A LEVEL of nil is equal to a LEVEL of 0, a LEVEL of t is equal to (when (nth 4 defaults) (set (make-local-variable 'font-lock-beginning-of-syntax-function) (nth 4 defaults))) - ;; The variable alist is set in font-core.el. - + ;; Variable alist? + (dolist (x (nthcdr 5 defaults)) + (set (make-local-variable (car x)) (cdr x))) ;; Setup `font-lock-keywords' last because its value might depend ;; on other settings (e.g. font-lock-compile-keywords uses ;; font-lock-beginning-of-syntax-function). |