(tar-get-descriptor): No error for zero-length file.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a18a61f..938cbdb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2007-07-15  Aaron Hawley  <aaronh@garden.org>
+
+       * tar-mode.el (tar-get-descriptor): No error for zero-length file.
+
 2007-07-15  Martin Rudalics  <rudalics@gmx.at>
 
        * mouse.el (mouse-drag-track): Reset transient-mark-mode to nil

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index f222c23..684396f 100644 (file)
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -667,7 +667,7 @@ appear on disk when you save the tar-file's buffer."
                     ((eq link-p 38) "a volume header")
                     ((eq link-p 55) "an extended pax header")
                     (t "a link"))))
-    (if (zerop size) (error "This is a zero-length file"))
+    (if (zerop size) (message "This is a zero-length file"))
     descriptor))
 
 (defun tar-mouse-extract (event)