Mercurial > emacs

comparison lisp/font-lock.el @ 56758:7a0ad15724f6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font-lock-set-defaults): Use with-no-warnings.
author Richard M. Stallman <rms@gnu.org>
date Sun, 22 Aug 2004 16:53:44 +0000
parents a474fcb6d318
children 05afd8f1212e 22658e29bd48 d8411455de48
comparison
equal deleted inserted replaced
56757:dc7deb7ca051 56758:7a0ad15724f6
1514 (unless font-lock-set-defaults 1514 (unless font-lock-set-defaults
1515 (set (make-local-variable 'font-lock-set-defaults) t) 1515 (set (make-local-variable 'font-lock-set-defaults) t)
1516 (make-local-variable 'font-lock-fontified) 1516 (make-local-variable 'font-lock-fontified)
1517 (make-local-variable 'font-lock-multiline) 1517 (make-local-variable 'font-lock-multiline)
1518 (let* ((defaults (or font-lock-defaults 1518 (let* ((defaults (or font-lock-defaults
1519 (cdr (assq major-mode font-lock-defaults-alist)))) 1519 (cdr (assq major-mode
1520 (with-no-warnings
1521 font-lock-defaults-alist)))))
1520 (keywords 1522 (keywords
1521 (font-lock-choose-keywords (nth 0 defaults) 1523 (font-lock-choose-keywords (nth 0 defaults)
1522 (font-lock-value-in-major-mode font-lock-maximum-decoration))) 1524 (font-lock-value-in-major-mode font-lock-maximum-decoration)))
1523 (local (cdr (assq major-mode font-lock-keywords-alist))) 1525 (local (cdr (assq major-mode font-lock-keywords-alist)))
1524 (removed-keywords 1526 (removed-keywords