mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-02 20:16:25 +00:00
Code Issues Releases Activity

(tar-mode-write-file): Don't signal an error by

Browse Source 
calling byte-to-position with a nil tar-header-offset.
This commit is contained in:
Gerd Moellmann 2001-09-27 08:11:36 +00:00
parent 974548ec2c
commit e63f0ff0f6
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/tar-mode.el
View File

@ -1245,8 +1245,9 @@ Leaves the region wide."
;; tar-header-offset turns out to be null for files fetched with W3,
;; at least.
(let ((coding-system-for-write 'no-conversion))
(write-region (or (byte-to-position tar-header-offset)
(point-min))
(write-region (if tar-header-offset
(byte-to-position tar-header-offset)
(point-min))
(point-max)
buffer-file-name nil t))
(tar-clear-modification-flags)