# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1023583225 0
# Node ID 3d25fe242d2a94dfc48af6120b55f66452bec8a2
# Parent  35a3f0ea981d20af8d7fed9d83fa2e38a2225663
(font-lock-set-defaults-1): Variable alist is now set in
`font-lock-set-defaults'.

diff -r 35a3f0ea981d -r 3d25fe242d2a lisp/font-lock.el
--- a/lisp/font-lock.el	Sun Jun 09 00:22:21 2002 +0000
+++ b/lisp/font-lock.el	Sun Jun 09 00:40:25 2002 +0000
@@ -152,9 +152,9 @@
 ;;    "Default expressions to highlight in Foo mode.")
 ;;
 ;;  (add-hook 'foo-mode-hook
-;;   (function (lambda ()
-;;               (make-local-variable 'font-lock-defaults)
-;;               (setq font-lock-defaults '(foo-font-lock-keywords t)))))
+;;   (lambda ()
+;;     (make-local-variable 'font-lock-defaults)
+;;     (setq font-lock-defaults '(foo-font-lock-keywords t))))
 
 ;;; Adding Font Lock support for modes:
 
@@ -1465,9 +1465,8 @@
     (when (nth 4 defaults)
       (set (make-local-variable 'font-lock-beginning-of-syntax-function)
 	   (nth 4 defaults)))
-    ;; Variable alist?
-    (dolist (x (nthcdr 5 defaults))
-      (set (make-local-variable (car x)) (cdr x)))
+    ;; The variable alist is set in font-core.el.
+
     ;; 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).