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 |