Mercurial > emacs
comparison lisp/font-core.el @ 45715:9f0d0f0a1a7e
Fix previous change.
author | Colin Walters <walters@gnu.org> |
---|---|
date | Sun, 09 Jun 2002 02:27:43 +0000 |
parents | 57fbb3200dc6 |
children | 1c3acb603967 |
comparison
equal
deleted
inserted
replaced
45714:7057566fa4c1 | 45715:9f0d0f0a1a7e |
---|---|
268 (unless font-lock-set-defaults | 268 (unless font-lock-set-defaults |
269 (set (make-local-variable 'font-lock-set-defaults) t) | 269 (set (make-local-variable 'font-lock-set-defaults) t) |
270 (make-local-variable 'font-lock-fontified) | 270 (make-local-variable 'font-lock-fontified) |
271 (make-local-variable 'font-lock-multiline) | 271 (make-local-variable 'font-lock-multiline) |
272 (let ((defaults (or font-lock-defaults | 272 (let ((defaults (or font-lock-defaults |
273 (assq major-mode font-lock-defaults-alist)))) | 273 (cdr (assq major-mode font-lock-defaults-alist))))) |
274 ;; Variable alist? | 274 ;; Variable alist? |
275 (dolist (x (nthcdr 5 defaults)) | 275 (dolist (x (nthcdr 5 defaults)) |
276 (set (make-local-variable (car x)) (cdr x))) | 276 (set (make-local-variable (car x)) (cdr x))) |
277 (when (and defaults | 277 (when (and defaults |
278 ;; Detect if this is a simple mode, which doesn't use | 278 ;; Detect if this is a simple mode, which doesn't use |