# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1023857681 0
# Node ID 49930c2c45caa12e37457c892035c14fc3938d06
# Parent  65b3d2289a426f64cac46168c7d9b3401f6e8a38
(font-lock-set-defaults-1): Set variable alist here.

diff -r 65b3d2289a42 -r 49930c2c45ca lisp/font-lock.el
--- 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).