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

calling byte-to-position with a nil tar-header-offset.

1 files changed, 3 insertions, 2 deletions

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 2e1b8c5d5de..4c89f9b4caf 100644
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -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)