From da4f2a4d78d238cd8df172d3877c8728d88b8d93 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 18 Mar 2002 04:29:13 +0000 Subject: [PATCH] (save-buffer-state): Bind inhibit-modification-hooks and buffer-file-truename instead of before-change-functions and after-change-functions. --- lisp/lazy-lock.el | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) 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. -- 2.39.2