changeset 45715:9f0d0f0a1a7e

Fix previous change.
author Colin Walters <walters@gnu.org>
date Sun, 09 Jun 2002 02:27:43 +0000
parents 7057566fa4c1
children 4dd143567eea
files lisp/font-core.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/font-core.el	Sun Jun 09 00:43:09 2002 +0000
+++ b/lisp/font-core.el	Sun Jun 09 02:27:43 2002 +0000
@@ -270,7 +270,7 @@
     (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)))