Mercurial > emacs
changeset 15947:849a396187cd
(tar-mode-write-file): Clear buffer's own modified flag
after clearing the ones listed within it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 28 Aug 1996 14:27:08 +0000 |
| parents | 966efa980335 |
| children | 0bfc53371444 |
| files | lisp/tar-mode.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)