From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: "Stefan Monnier" <monnier@iro.umontreal.ca>
Newsgroups: gmane.emacs.help
Subject: Re: Form to store/recover buffer modified state?
Date: Fri, 05 Sep 2003 16:18:52 GMT
Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Message-ID: <jwvhe3r8az8.fsf@noir.iro.umontreal.ca>
References: <4yznhtczpt.fsf@skjellgran.ii.uib.no>
	<m3he3uu0au.fsf@defun.localdomain>
NNTP-Posting-Host: deer.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1062796159 5809 80.91.224.253 (5 Sep 2003 21:09:19 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Fri, 5 Sep 2003 21:09:19 +0000 (UTC)
Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Fri Sep 05 23:09:17 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 19vNpU-0001Oi-01
	for <geh-help-gnu-emacs@m.gmane.org>; Fri, 05 Sep 2003 23:09:17 +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 19vNo4-00061a-OG
	for geh-help-gnu-emacs@m.gmane.org; Fri, 05 Sep 2003 17:07:48 -0400
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!headwall.stanford.edu!newshub.sdsu.edu!elnk-nf2-pas!newsfeed.earthlink.net!newsfeed.news2me.com!snoopy.risq.qc.ca!charlie.risq.qc.ca!53ab2750!not-for-mail
Original-Newsgroups: gnu.emacs.help
Original-Lines: 11
User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2
Original-NNTP-Posting-Host: 132.204.26.236
Original-X-Complaints-To: abuse@umontreal.ca
Original-X-Trace: charlie.risq.qc.ca 1062778732 132.204.26.236 (Fri,
	05 Sep 2003 12:18:52 EDT)
Original-NNTP-Posting-Date: Fri, 05 Sep 2003 12:18:52 EDT
Original-Xref: shelby.stanford.edu gnu.emacs.help:116393
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:12312
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:12312

>> (let ((modified (buffer-modified-p)))
>> ;;
>> (lots of code)
>> ;;
>> (if (not modified) (set-buffer-modifed-p nil)))

Note that it's recommended to use restore-buffer-modified-p
in such a case.


        Stefan