diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/tar-mode.el | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a18a61fe29b..938cbdb9a00 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2007-07-15 Aaron Hawley <aaronh@garden.org> | ||
| 2 | |||
| 3 | * tar-mode.el (tar-get-descriptor): No error for zero-length file. | ||
| 4 | |||
| 1 | 2007-07-15 Martin Rudalics <rudalics@gmx.at> | 5 | 2007-07-15 Martin Rudalics <rudalics@gmx.at> |
| 2 | 6 | ||
| 3 | * mouse.el (mouse-drag-track): Reset transient-mark-mode to nil | 7 | * mouse.el (mouse-drag-track): Reset transient-mark-mode to nil |
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index f222c23fbf0..684396f1692 100644 --- 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." | |||
| 667 | ((eq link-p 38) "a volume header") | 667 | ((eq link-p 38) "a volume header") |
| 668 | ((eq link-p 55) "an extended pax header") | 668 | ((eq link-p 55) "an extended pax header") |
| 669 | (t "a link")))) | 669 | (t "a link")))) |
| 670 | (if (zerop size) (error "This is a zero-length file")) | 670 | (if (zerop size) (message "This is a zero-length file")) |
| 671 | descriptor)) | 671 | descriptor)) |
| 672 | 672 | ||
| 673 | (defun tar-mouse-extract (event) | 673 | (defun tar-mouse-extract (event) |