Function: with-buffer-modified-unmodified

with-buffer-modified-unmodified is a macro defined in bookmark.el.gz.

Signature

(with-buffer-modified-unmodified &rest BODY)

Documentation

Run BODY while preserving the buffer's buffer-modified-p state.

Source Code

;; Defined in /usr/src/emacs/lisp/bookmark.el.gz
;; Helper functions and macros.

(defmacro with-buffer-modified-unmodified (&rest body)
  "Run BODY while preserving the buffer's `buffer-modified-p' state."
  (let ((was-modified (make-symbol "was-modified")))
    `(let ((,was-modified (buffer-modified-p)))
       (unwind-protect
           (progn ,@body)
         (set-buffer-modified-p ,was-modified)))))