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

(font-lock-unfontify-region. font-lock-fontify-region): Likewise.

1 files changed, 4 insertions, 0 deletions

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 5c23041c3a6..a737e0452f2 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -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)))