Mercurial > emacs

changeset 10175:a52d1ab148f5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font-lock-hack-keywords): Turn off undo generation. (font-lock-unfontify-region. font-lock-fontify-region): Likewise.
author Richard M. Stallman <rms@gnu.org>
date Thu, 15 Dec 1994 16:30:39 +0000
parents e48de3882616
children 332014233a2c
files lisp/font-lock.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/font-lock.el	Thu Dec 15 15:23:49 1994 +0000
+++ b/lisp/font-lock.el	Thu Dec 15 16:30:39 1994 +0000
@@ -335,6 +335,8 @@
       (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 @@
 
 (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 @@
 	(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)))