1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00

(save-buffer-state-x): Use with-no-warnings.

This commit is contained in:
Richard M. Stallman 2003-12-29 20:03:05 +00:00
parent 3066be24c1
commit 3e86c60b95

View file

@ -161,7 +161,7 @@
;; More compile-time-macros
(eval-when-compile
(defmacro save-buffer-state-x (&rest body) ; similar to EMACS/lazy-lock.el
(let ((modified (gensym "save-buffer-state-x-modified-")))
(let ((modified (with-no-warnings (gensym "save-buffer-state-x-modified-"))))
`(let ((,modified (buffer-modified-p)))
(unwind-protect
(let ((buffer-undo-list t) (inhibit-read-only t)