diff options
| author | Chong Yidong | 2007-06-06 17:03:40 +0000 |
|---|---|---|
| committer | Chong Yidong | 2007-06-06 17:03:40 +0000 |
| commit | bf65c66447febc62611a4a09dd445b61d45e6d40 (patch) | |
| tree | e9834c3374c8e9ab48befc72848f3849f8df14ab | |
| parent | 4601566370eb76dc2ea21b7502f1b4243568a381 (diff) | |
| download | emacs-bf65c66447febc62611a4a09dd445b61d45e6d40.tar.gz emacs-bf65c66447febc62611a4a09dd445b61d45e6d40.zip | |
Fix typo, and clarify error message handling.
| -rw-r--r-- | lisp/tar-mode.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 65e2b0f1c0b..b97cb11165e 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el | |||
| @@ -658,15 +658,15 @@ appear on disk when you save the tar-file's buffer." | |||
| 658 | (size (tar-header-size tokens)) | 658 | (size (tar-header-size tokens)) |
| 659 | (link-p (tar-header-link-type tokens))) | 659 | (link-p (tar-header-link-type tokens))) |
| 660 | (if link-p | 660 | (if link-p |
| 661 | (error "This is a%s, not a real file" | 661 | (error "This is %s, not a real file" |
| 662 | (cond ((eq link-p 5) " directory") | 662 | (cond ((eq link-p 5) "a directory") |
| 663 | ((eq link-p 20) " tar directory header") | 663 | ((eq link-p 20) "a tar directory header") |
| 664 | ((eq link-p 28) " next has longname") | 664 | ((eq link-p 28) "a next has longname") |
| 665 | ((eq link-p 29) " multivolume-continuation") | 665 | ((eq link-p 29) "a multivolume-continuation") |
| 666 | ((eq link-p 35) " sparse entry") | 666 | ((eq link-p 35) "a sparse entry") |
| 667 | ((eq link-p 38) " volume header") | 667 | ((eq link-p 38) "a volume header") |
| 668 | ((eq link-p 55) "n extended pax header") | 668 | ((eq link-p 55) "an extended pax header") |
| 669 | (t "link")))) | 669 | (t "a link")))) |
| 670 | (if (zerop size) (error "This is a zero-length file")) | 670 | (if (zerop size) (error "This is a zero-length file")) |
| 671 | descriptor)) | 671 | descriptor)) |
| 672 | 672 | ||