From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: Jesper Harder <harder@myrealbox.com>
Newsgroups: gmane.emacs.help
Subject: Re: Form to store/recover buffer modified state?
Date: Wed, 03 Sep 2003 03:29:29 +0200
Organization: http://purl.org/harder/
Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Message-ID: <m3he3uu0au.fsf@defun.localdomain>
References: <4yznhtczpt.fsf@skjellgran.ii.uib.no>
NNTP-Posting-Host: deer.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1062628340 4038 80.91.224.253 (3 Sep 2003 22:32:20 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Wed, 3 Sep 2003 22:32:20 +0000 (UTC)
Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Thu Sep 04 00:32:18 2003
Return-path: <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 19ugAk-0005If-00
	for <geh-help-gnu-emacs@m.gmane.org>; Thu, 04 Sep 2003 00:32:18 +0200
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.22)
	id 19ug7H-0001rf-K4
	for geh-help-gnu-emacs@m.gmane.org; Wed, 03 Sep 2003 18:28:43 -0400
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!cyclone.bc.net!skynet.be!skynet.be!news.tele.dk!news.tele.dk!small.news.tele.dk!not-for-mail
Original-Newsgroups: gnu.emacs.help
X-Face: ^RrvqCr7c,P$zTR:QED"@h9+BTm-"fjZJJ-3=OU7.)i/K]<.J88}s>'Z_$r;
	<N5ksn~%wJ@2pjF}="tV; FBsdpFarSWA<oYkZsViGf:F^SD-KXhvFxh;
	~]?)SWm~+u}; 0=x}<vOm&5J+?]yB2d]q4x8\0g7SX
Mail-Copies-To: never
User-Agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/21.3.50 (gnu/linux)
Cancel-Lock: sha1:Op7HIozb0vn5ADMhpgFPf23sMFk=
Original-Lines: 26
Original-NNTP-Posting-Host: 195.249.82.183
Original-X-Trace: 1062553531 dtext02.news.tele.dk 48891 195.249.82.183
Original-X-Complaints-To: abuse@post.tele.dk
Original-Xref: shelby.stanford.edu gnu.emacs.help:116334
Original-To: help-gnu-emacs@gnu.org
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.1.2
Precedence: list
List-Id: Users list for the GNU Emacs text editor  <help-gnu-emacs.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/help-gnu-emacs>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Xref: main.gmane.org gmane.emacs.help:12253
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:12253

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))))))