diff options
| author | Richard M. Stallman | 1996-08-28 14:27:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-08-28 14:27:08 +0000 |
| commit | 87aed91b30a0aaf4f156e61bd5bae98bb55ce044 (patch) | |
| tree | 8861be388ad4727d029968017250570351e499d7 | |
| parent | 51603bd058a74e904e9648027e287790c6993fa9 (diff) | |
| download | emacs-87aed91b30a0aaf4f156e61bd5bae98bb55ce044.tar.gz emacs-87aed91b30a0aaf4f156e61bd5bae98bb55ce044.zip | |
(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." | |||
| 1196 | ;; I suppose this is run in a context where changing the buffer is bad. | 1196 | ;; I suppose this is run in a context where changing the buffer is bad. |
| 1197 | ;; (tar-pad-to-blocksize) | 1197 | ;; (tar-pad-to-blocksize) |
| 1198 | (write-region tar-header-offset (point-max) buffer-file-name nil t) | 1198 | (write-region tar-header-offset (point-max) buffer-file-name nil t) |
| 1199 | (tar-clear-modification-flags)) | 1199 | (tar-clear-modification-flags) |
| 1200 | (set-buffer-modified-p nil)) | ||
| 1200 | (narrow-to-region 1 tar-header-offset)) | 1201 | (narrow-to-region 1 tar-header-offset)) |
| 1201 | ;; return T because we've written the file. | 1202 | ;; return T because we've written the file. |
| 1202 | t) | 1203 | t) |