Commit 3e86c60b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 3066be24
...@@ -161,7 +161,7 @@ ...@@ -161,7 +161,7 @@
;; More compile-time-macros ;; More compile-time-macros
(eval-when-compile (eval-when-compile
(defmacro save-buffer-state-x (&rest body) ; similar to EMACS/lazy-lock.el (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))) `(let ((,modified (buffer-modified-p)))
(unwind-protect (unwind-protect
(let ((buffer-undo-list t) (inhibit-read-only t) (let ((buffer-undo-list t) (inhibit-read-only t)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment