From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 18 Mar 2002 04:29:13 +0000 (+0000)
Subject: (save-buffer-state):
X-Git-Tag: ttn-vms-21-2-B4~16115
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=da4f2a4d78d238cd8df172d3877c8728d88b8d93;p=emacs.git

(save-buffer-state):
Bind inhibit-modification-hooks and buffer-file-truename
instead of before-change-functions and after-change-functions.
---

diff --git a/lisp/lazy-lock.el b/lisp/lazy-lock.el
index 60cb125960a..11303dfbd92 100644
--- a/lisp/lazy-lock.el
+++ b/lisp/lazy-lock.el
@@ -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.