From 332607125e70f9b8631c5750ca5647ad0cc3512a Mon Sep 17 00:00:00 2001 From: Colin Walters Date: Sun, 9 Jun 2002 02:27:43 +0000 Subject: [PATCH] Fix previous change. --- lisp/font-core.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/font-core.el b/lisp/font-core.el index 69e899f31e5..31bd6660411 100644 --- a/lisp/font-core.el +++ b/lisp/font-core.el @@ -270,7 +270,7 @@ Sets various variables using `font-lock-defaults' (or, if nil, using (make-local-variable 'font-lock-fontified) (make-local-variable 'font-lock-multiline) (let ((defaults (or font-lock-defaults - (assq major-mode font-lock-defaults-alist)))) + (cdr (assq major-mode font-lock-defaults-alist))))) ;; Variable alist? (dolist (x (nthcdr 5 defaults)) (set (make-local-variable (car x)) (cdr x))) -- 2.39.2