Mercurial > emacs

diff lisp/font-lock.el @ 45762:49930c2c45ca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font-lock-set-defaults-1): Set variable alist here.
author Colin Walters <walters@gnu.org>
date Wed, 12 Jun 2002 04:54:41 +0000
parents 3d25fe242d2a
children 71755f1fa5a4
line wrap: on
line diff
--- a/lisp/font-lock.el	Wed Jun 12 04:54:30 2002 +0000
+++ b/lisp/font-lock.el	Wed Jun 12 04:54:41 2002 +0000
@@ -1465,8 +1465,9 @@
     (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).