Mercurial > emacs
changeset 21851:facde3a9a846
(tar-mode-write-file): Protect from null tar-header-offset.
author | Dave Love <fx@gnu.org> |
---|---|
date | Wed, 29 Apr 1998 22:34:42 +0000 |
parents | 96fc2ea42485 |
children | 5898cd2e4cd6 |
files | lisp/tar-mode.el |
diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/tar-mode.el Wed Apr 29 22:15:59 1998 +0000 +++ b/lisp/tar-mode.el Wed Apr 29 22:34:42 1998 +0000 @@ -1205,7 +1205,10 @@ ;; Doing this here confuses things - the region gets left too 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-header-offset turns out to be null for files fetched with W3, + ;; at least. + (write-region (or tar-header-offset (point-min)) (point-max) + buffer-file-name nil t) (tar-clear-modification-flags) (set-buffer-modified-p nil)) (narrow-to-region 1 tar-header-offset))