Re: Form to store/recover buffer modified state?

[Joakim Hove]

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. I will try to
decipher it and see what I can learn!

Thanks again :-)

Joakim

-- 
  /--------------------------------------------------------------------\
 / Joakim Hove  / hove@bccs.no  /  (55 5) 84076       |                 \
 | Unifob AS, Avdeling for Beregningsvitenskap (BCCS) | Stabburveien 18 |
 | CMU                                                | 5231 Paradis    |
 \ Thormøhlensgt.55, 5020 Bergen.                     | 55 91 28 18     /
  \--------------------------------------------------------------------/