Mercurial > emacs

comparison lisp/font-lock.el @ 63028:6e292941905b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font-lock-set-defaults): Fix omission in last change.
author Luc Teirlinck <teirllm@auburn.edu>
date Sun, 05 Jun 2005 03:37:59 +0000
parents 36a997bd89f7
children 2c644f271d4c 01137c1fdbe9
comparison
equal deleted inserted replaced
63027:b5c7398b1750 63028:6e292941905b
1593 Sets various variables using `font-lock-defaults' (or, if nil, using 1593 Sets various variables using `font-lock-defaults' (or, if nil, using
1594 `font-lock-defaults-alist') and `font-lock-maximum-decoration'." 1594 `font-lock-defaults-alist') and `font-lock-maximum-decoration'."
1595 ;; Set fontification defaults iff not previously set for correct major mode. 1595 ;; Set fontification defaults iff not previously set for correct major mode.
1596 (unless (and font-lock-set-defaults 1596 (unless (and font-lock-set-defaults
1597 (eq font-lock-mode-major-mode major-mode)) 1597 (eq font-lock-mode-major-mode major-mode))
1598 (setq font-lock-mode-major-mode major-mode)
1598 (set (make-local-variable 'font-lock-set-defaults) t) 1599 (set (make-local-variable 'font-lock-set-defaults) t)
1599 (make-local-variable 'font-lock-fontified) 1600 (make-local-variable 'font-lock-fontified)
1600 (make-local-variable 'font-lock-multiline) 1601 (make-local-variable 'font-lock-multiline)
1601 (let* ((defaults (or font-lock-defaults 1602 (let* ((defaults (or font-lock-defaults
1602 (cdr (assq major-mode 1603 (cdr (assq major-mode