# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 841242428 0
# Node ID 849a396187cd34e11c8487f096017ec58f840bd2
# Parent  966efa980335deda625feacb1e5a91eb56f81247
(tar-mode-write-file): Clear buffer's own modified flag
after clearing the ones listed within it.

diff -r 966efa980335 -r 849a396187cd lisp/tar-mode.el
--- a/lisp/tar-mode.el	Wed Aug 28 14:24:49 1996 +0000
+++ b/lisp/tar-mode.el	Wed Aug 28 14:27:08 1996 +0000
@@ -1196,7 +1196,8 @@
 	;; 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)