Re: Form to store/recover buffer modified state?

[Jesper Harder <harder@myrealbox.com>]

Joakim Hove <hove@bccs.no> writes:

> I have some buffer manipulating[1] functions which are wrapped in a
> construct like this:
>
> (let ((modified (buffer-modified-p)))
>   ;;
>   (lots of code)
>   ;;
>   (if (not modified) (set-buffer-modifed-p nil)))
>
> To ensure that the buffer is not marked as modified when the function
> has finished executing.  Is there a special form, i.e. resembling
> (save-excursion ) to achieve this?

I don't think there's an existing special form.  But you can always
create you own macro that works like a special form.  Something like:

(defmacro save-modified (&rest body)
  (let ((temp (make-symbol "modified")))
    `(let ((,temp (buffer-modified-p)))
       (unwind-protect
	   (progn
	     ,@body)
	 (unless ,temp
	   (set-buffer-modified-p nil))))))