Re: Form to store/recover buffer modified state?

[Jesper Harder <harder@myrealbox.com>]

Joakim Hove <hove@bccs.no> writes:

> Jesper Harder <harder@myrealbox.com> writes:
>
>> (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))))))
>
> Thanks a lot, it works like intended, but (e)lisp code containing the
> "magic" characters "@", "," and "`" is beyond me.

The backquote constructs aren't essential to the macro.  They just
make it easier to write (and read, IMHO).

You could also write the macro this way without using backquote:

(defmacro save-modified (&rest body)
  (let ((temp (make-symbol "modified")))
    (list 'let (list (list temp (list 'buffer-modified-p)))
	  (list 'unwind-protect
		(append '(progn)
		      body)
		(list 'unless temp
		      (list 'set-buffer-modified-p nil))))))