Mercurial > emacs
changeset 81186:4e1833e3b34b
Fix typo, and clarify error message handling.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Wed, 06 Jun 2007 17:03:40 +0000 |
| parents | 620eee974c9e |
| children | 1c068a2f6c6b |
| files | lisp/tar-mode.el |
| diffstat | 1 files changed, 9 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/tar-mode.el Wed Jun 06 16:18:32 2007 +0000 +++ b/lisp/tar-mode.el Wed Jun 06 17:03:40 2007 +0000 @@ -658,15 +658,15 @@ (size (tar-header-size tokens)) (link-p (tar-header-link-type tokens))) (if link-p - (error "This is a%s, not a real file" - (cond ((eq link-p 5) " directory") - ((eq link-p 20) " tar directory header") - ((eq link-p 28) " next has longname") - ((eq link-p 29) " multivolume-continuation") - ((eq link-p 35) " sparse entry") - ((eq link-p 38) " volume header") - ((eq link-p 55) "n extended pax header") - (t "link")))) + (error "This is %s, not a real file" + (cond ((eq link-p 5) "a directory") + ((eq link-p 20) "a tar directory header") + ((eq link-p 28) "a next has longname") + ((eq link-p 29) "a multivolume-continuation") + ((eq link-p 35) "a sparse entry") + ((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")) descriptor))