From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 27 Sep 2001 08:11:36 +0000 (+0000)
Subject: (tar-mode-write-file): Don't signal an error by
X-Git-Tag: emacs-21.1~144
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e63f0ff0f6b4db0c5ac7ed09f06dba5e64258aa7;p=emacs.git

(tar-mode-write-file): Don't signal an error by
calling byte-to-position with a nil tar-header-offset.
---

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)