/[emacs]/emacs/lisp/lazy-lock.el
ViewVC logotype

Diff of /emacs/lisp/lazy-lock.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.27 by eliz, Sun Jan 27 09:25:37 2002 UTC revision 1.28 by rms, Mon Mar 18 04:29:13 2002 UTC
# Line 278  Line 278 
278   (defmacro save-buffer-state (varlist &rest body)   (defmacro save-buffer-state (varlist &rest body)
279     "Bind variables according to VARLIST and eval BODY restoring buffer state."     "Bind variables according to VARLIST and eval BODY restoring buffer state."
280     `(let* (,@(append varlist     `(let* (,@(append varlist
281                       '((modified (buffer-modified-p)) (buffer-undo-list t)                     '((modified (buffer-modified-p))
282                         (inhibit-read-only t) (inhibit-point-motion-hooks t)                       (buffer-undo-list t)
283                         before-change-functions after-change-functions                       (inhibit-read-only t)
284                         deactivate-mark buffer-file-name buffer-file-truename)))                       (inhibit-point-motion-hooks t)
285                         (inhibit-modification-hooks t)
286                         deactivate-mark
287                         buffer-file-name
288                         buffer-file-truename)))
289       ,@body       ,@body
290       (when (and (not modified) (buffer-modified-p))       (when (and (not modified) (buffer-modified-p))
291         (set-buffer-modified-p nil))))         (restore-buffer-modified-p nil))))
292   (put 'save-buffer-state 'lisp-indent-function 1)   (put 'save-buffer-state 'lisp-indent-function 1)
293   ;;   ;;
294   ;; We use this for clarity and speed.  Naughty but nice.   ;; We use this for clarity and speed.  Naughty but nice.

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26