From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 28 Aug 1996 14:27:08 +0000 (+0000)
Subject: (tar-mode-write-file): Clear buffer's own modified flag
X-Git-Tag: emacs-20.1~3997
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=87aed91b30a0aaf4f156e61bd5bae98bb55ce044;p=emacs.git

(tar-mode-write-file): Clear buffer's own modified flag
after clearing the ones listed within it.
---

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index a444a565fef..5776680d6cb 100644
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -1196,7 +1196,8 @@ Leaves the region wide."
 	;; I suppose this is run in a context where changing the buffer is bad.
 	;; (tar-pad-to-blocksize)
 	(write-region tar-header-offset (point-max) buffer-file-name nil t)
-	(tar-clear-modification-flags))
+	(tar-clear-modification-flags)
+	(set-buffer-modified-p nil))
     (narrow-to-region 1 tar-header-offset))
   ;; return T because we've written the file.
   t)