diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-08-28 14:27:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-08-28 14:27:08 +0000 |
| commit | 6ceb414a413927dd2dec7d5912244588d28c7a8f (patch) | |
| tree | 24edfb370b55efa011e461121a2efeb134dfad10 | |
| parent | c09bfe634ed2273cd81ad03652b8264bd3066f9c (diff) | |
| download | emacs-6ceb414a413927dd2dec7d5912244588d28c7a8f.tar.gz | |
(tar-mode-write-file): Clear buffer's own modified flag
after clearing the ones listed within it.
| -rw-r--r-- | lisp/tar-mode.el | 3 |
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) |