mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-03 14:10:47 -08:00
Code Issues Projects Releases Wiki Activity

(font-lock-hack-keywords): Turn off undo generation.

Browse source 
(font-lock-unfontify-region. font-lock-fontify-region): Likewise.
This commit is contained in:
Richard M. Stallman 1994-12-15 16:30:39 +00:00
parent 476070a4d5
commit e547d71e2c
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/font-lock.el
View file

@ -335,6 +335,8 @@ the face is also set; its value is the face name."
(beginning-of-line)
(if loudly (message "Fontifying %s... (syntactically...)" (buffer-name)))
(let ((buffer-read-only nil)
;; Suppress all undo activity.
(buffer-undo-list t)
(modified (buffer-modified-p))
(cstart (if comment-start-skip
(concat "\\s\"\\|" comment-start-skip)
@ -449,6 +451,7 @@ the face is also set; its value is the face name."
(defun font-lock-unfontify-region (beg end)
(let ((modified (buffer-modified-p))
(buffer-undo-list t)
(buffer-read-only nil))
(remove-text-properties beg end '(face nil))
(set-buffer-modified-p modified)))
@ -491,6 +494,7 @@ the face is also set; its value is the face name."
(keywords font-lock-keywords)
(count 0)
(buffer-read-only nil)
(buffer-undo-list t)
(modified (buffer-modified-p))
(old-syntax (syntax-table))
(bufname (buffer-name)))