[Emacs-diffs] Changes to emacs/lisp/lazy-lock.el

[Richard M. Stallman]

Index: emacs/lisp/lazy-lock.el
diff -c emacs/lisp/lazy-lock.el:1.27 emacs/lisp/lazy-lock.el:1.28
*** emacs/lisp/lazy-lock.el:1.27        Sun Jan 27 04:25:37 2002
--- emacs/lisp/lazy-lock.el     Sun Mar 17 23:29:13 2002
***************
*** 278,290 ****
   (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)))
       ,@body
       (when (and (not modified) (buffer-modified-p))
!        (set-buffer-modified-p nil))))
   (put 'save-buffer-state 'lisp-indent-function 1)
   ;;
   ;; We use this for clarity and speed.  Naughty but nice.
--- 278,294 ----
   (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)
!                    (inhibit-modification-hooks t)
!                    deactivate-mark
!                    buffer-file-name
!                    buffer-file-truename)))
       ,@body
       (when (and (not modified) (buffer-modified-p))
!        (restore-buffer-modified-p nil))))
   (put 'save-buffer-state 'lisp-indent-function 1)
   ;;
   ;; We use this for clarity and speed.  Naughty but nice.