From: Colin Walters <walters@gnu.org>
Date: Sun, 9 Jun 2002 02:27:43 +0000 (+0000)
Subject: Fix previous change.
X-Git-Tag: ttn-vms-21-2-B4~14702
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=332607125e70f9b8631c5750ca5647ad0cc3512a;p=emacs.git

Fix previous change.
---

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)))