From: Colin Walters <walters@gnu.org>
Date: Wed, 12 Jun 2002 04:54:41 +0000 (+0000)
Subject: (font-lock-set-defaults-1): Set variable alist here.
X-Git-Tag: ttn-vms-21-2-B4~14663
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=93e5c2b583ef02132623197a090dd27eeb08ae05;p=emacs.git

(font-lock-set-defaults-1): Set variable alist here.
---

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index eb69a93f846..04d422b7942 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).