Mercurial > emacs

changeset 45712:3d25fe242d2a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font-lock-set-defaults-1): Variable alist is now set in `font-lock-set-defaults'.
author Colin Walters <walters@gnu.org>
date Sun, 09 Jun 2002 00:40:25 +0000
parents 35a3f0ea981d
children 57fbb3200dc6
files lisp/font-lock.el
diffstat 1 files changed, 5 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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).