mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-17 10:06:13 +00:00
Code Issues Releases Activity

(font-lock-default-function): If `font-lock-core-only' is non-nil,

Browse Source 
don't use big font-lock machinery.
This commit is contained in:
Colin Walters 2002-06-09 00:41:11 +00:00
parent e9476ca8e2
commit c32aa1a580
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/font-core.el
View File

@ -225,7 +225,8 @@ your own function which is called when `font-lock-mode' is toggled via
(push (list 'face 'font-lock-face) char-property-alias-alist)))
;; Only do hard work if the mode has specified stuff in
;; `font-lock-defaults'.
(when font-lock-defaults
(when (and font-lock-defaults
(not font-lock-core-only))
(add-hook 'after-change-functions 'font-lock-after-change-function t t)
(font-lock-turn-on-thing-lock)
;; Fontify the buffer if we have to.
@ -247,7 +248,8 @@ your own function which is called when `font-lock-mode' is toggled via
(setcdr elt (remq 'font-lock-face (cdr elt)))
(when (null (cdr elt))
(setq char-property-alias-alist (delq elt char-property-alias-alist)))))
(when font-lock-defaults
(when (and font-lock-defaults
(not font-lock-core-only))
(remove-hook 'after-change-functions 'font-lock-after-change-function t)
(font-lock-unfontify-buffer)
(font-lock-turn-off-thing-lock))))
@ -269,11 +271,13 @@ Sets various variables using `font-lock-defaults' (or, if nil, using
(make-local-variable 'font-lock-multiline)
(let ((defaults (or font-lock-defaults
(assq major-mode font-lock-defaults-alist))))
;; Variable alist?
(dolist (x (nthcdr 5 defaults))
(set (make-local-variable (car x)) (cdr x)))
(when (and defaults
;; Detect if this is a simple mode, which doesn't use
;; any syntactic fontification functions.
(not (cdr (assq 'font-lock-core-only
(nthcdr 5 defaults)))))
(not font-lock-core-only))
(require 'font-lock)
(font-lock-set-defaults-1)))))