procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(font-lock-unfontify-region): Save buffer state.

Browse source 
(font-lock-default-unfontify-region): Dont' save buffer state any more.
This commit is contained in:
Stefan Monnier 2004-12-07 04:58:36 +00:00
parent 33c886d07a
commit 516eb29c73
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/font-lock.el
View file

@ -958,7 +958,8 @@ The value of this variable is used when Font Lock mode is turned on."
(funcall font-lock-fontify-region-function beg end loudly))
(defun font-lock-unfontify-region (beg end)
(funcall font-lock-unfontify-region-function beg end))
(save-buffer-state nil
(funcall font-lock-unfontify-region-function beg end)))
(defun font-lock-default-fontify-buffer ()
(let ((verbose (if (numberp font-lock-verbose)
@ -1046,13 +1047,12 @@ This is used by `font-lock-default-unfontify-region' to decide
what properties to clear before refontifying a region.")
(defun font-lock-default-unfontify-region (beg end)
(save-buffer-state nil
(remove-list-of-text-properties
beg end (append
font-lock-extra-managed-props
(if font-lock-syntactic-keywords
'(syntax-table face font-lock-multiline)
'(face font-lock-multiline))))))
(remove-list-of-text-properties
beg end (append
font-lock-extra-managed-props
(if font-lock-syntactic-keywords
'(syntax-table face font-lock-multiline)
'(face font-lock-multiline)))))
;; Called when any modification is made to buffer text.
(defun font-lock-after-change-function (beg end old-len)