summaryrefslogtreecommitdiff
path: root/lisp/font-core.el
diff options
context:
space:
mode:
authorColin Walters <walters@gnu.org>2002-06-09 02:27:43 +0000
committerColin Walters <walters@gnu.org>2002-06-09 02:27:43 +0000
commit332607125e70f9b8631c5750ca5647ad0cc3512a (patch)
tree6efefdf360b28f8ef9aa16f5e8e153a71f60f938 /lisp/font-core.el
parent0ab0c481624ec9d18456597e677b65b34b922cae (diff)
downloademacs-332607125e70f9b8631c5750ca5647ad0cc3512a.tar.gz
Fix previous change.
Diffstat (limited to 'lisp/font-core.el')
-rw-r--r--lisp/font-core.el2
1 files changed, 1 insertions, 1 deletions
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)))