# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1001578296 0
# Node ID 3ca0c12d72fee5d74457d85ca2bdcfd01c4a3a49
# Parent  3411e4da792d1aa1878557fd0230abfff6fa82c3
(tar-mode-write-file): Don't signal an error by
calling byte-to-position with a nil tar-header-offset.

diff -r 3411e4da792d -r 3ca0c12d72fe lisp/tar-mode.el
--- a/lisp/tar-mode.el	Wed Sep 26 19:55:41 2001 +0000
+++ b/lisp/tar-mode.el	Thu Sep 27 08:11:36 2001 +0000
@@ -1245,8 +1245,9 @@
 	;; 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)