# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1016425753 0
# Node ID 7bb1231179325f1b3c88318884c42486df56a594
# Parent  a40fcee55faa9fb86ee1fff3766cd9df1fddd26d
(save-buffer-state):
Bind inhibit-modification-hooks and buffer-file-truename
instead of before-change-functions and after-change-functions.

diff -r a40fcee55faa -r 7bb123117932 lisp/lazy-lock.el
--- a/lisp/lazy-lock.el	Mon Mar 18 04:27:30 2002 +0000
+++ b/lisp/lazy-lock.el	Mon Mar 18 04:29:13 2002 +0000
@@ -278,13 +278,17 @@
  (defmacro save-buffer-state (varlist &rest body)
    "Bind variables according to VARLIST and eval BODY restoring buffer state."
    `(let* (,@(append varlist
-                     '((modified (buffer-modified-p)) (buffer-undo-list t)
-                       (inhibit-read-only t) (inhibit-point-motion-hooks t)
-                       before-change-functions after-change-functions
-                       deactivate-mark buffer-file-name buffer-file-truename)))
+		   '((modified (buffer-modified-p))
+		     (buffer-undo-list t)
+		     (inhibit-read-only t)
+		     (inhibit-point-motion-hooks t)
+		     (inhibit-modification-hooks t)
+		     deactivate-mark
+		     buffer-file-name
+		     buffer-file-truename)))
      ,@body
      (when (and (not modified) (buffer-modified-p))
-       (set-buffer-modified-p nil))))
+       (restore-buffer-modified-p nil))))
  (put 'save-buffer-state 'lisp-indent-function 1)
  ;;
  ;; We use this for clarity and speed.  Naughty but nice.