Mercurial > emacs

comparison lisp/files.el @ 65467:2e5f838e6ca7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(normal-mode): Check boundness of font-lock-keywords.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 12 Sep 2005 15:05:24 +0000
parents bb72cd763704
children 4d1085b02d64 94f174e5569d
comparison
equal deleted inserted replaced
65466:1fdd6c36f42c 65467:2e5f838e6ca7
1736 (set-auto-mode)) 1736 (set-auto-mode))
1737 (report-errors "File local-variables error: %s" 1737 (report-errors "File local-variables error: %s"
1738 (hack-local-variables))) 1738 (hack-local-variables)))
1739 ;; Turn font lock off and on, to make sure it takes account of 1739 ;; Turn font lock off and on, to make sure it takes account of
1740 ;; whatever file local variables are relevant to it. 1740 ;; whatever file local variables are relevant to it.
1741 (when (and font-lock-mode (eq (car font-lock-keywords) t)) 1741 (when (and font-lock-mode
1742 ;; Font-lock-mode (now in font-core.el) can be ON when
1743 ;; font-lock.el still hasn't been loaded.
1744 (boundp 'font-lock-keywords)
1745 (eq (car font-lock-keywords) t))
1742 (setq font-lock-keywords (cadr font-lock-keywords)) 1746 (setq font-lock-keywords (cadr font-lock-keywords))
1743 (font-lock-mode 1)) 1747 (font-lock-mode 1))
1744 1748
1745 (if (fboundp 'ucs-set-table-for-input) ; don't lose when building 1749 (if (fboundp 'ucs-set-table-for-input) ; don't lose when building
1746 (ucs-set-table-for-input))) 1750 (ucs-set-table-for-input)))