summaryrefslogtreecommitdiff
path: root/lisp/tar-mode.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/tar-mode.el')
-rw-r--r--lisp/tar-mode.el3
1 files changed, 2 insertions, 1 deletions
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)