From 87aed91b30a0aaf4f156e61bd5bae98bb55ce044 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 28 Aug 1996 14:27:08 +0000 Subject: [PATCH] (tar-mode-write-file): Clear buffer's own modified flag after clearing the ones listed within it. --- lisp/tar-mode.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 2.39.2