diff options
author | Richard M. Stallman <rms@gnu.org> | 2002-03-18 04:29:13 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2002-03-18 04:29:13 +0000 |
commit | 0366cfd5816f8c9d202435c9bc57382e424ac21f (patch) | |
tree | 44dcb476a80fda0159de4079f39a07cd9814e15e /lisp/lazy-lock.el | |
parent | b7bd987a38363cf3027b741b86f0aadc9eca98e3 (diff) | |
download | emacs-0366cfd5816f8c9d202435c9bc57382e424ac21f.tar.gz |
(save-buffer-state):
Bind inhibit-modification-hooks and buffer-file-truename
instead of before-change-functions and after-change-functions.
Diffstat (limited to 'lisp/lazy-lock.el')
-rw-r--r-- | lisp/lazy-lock.el | 14 |
1 files 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. |