aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorChong Yidong2007-06-06 17:03:40 +0000
committerChong Yidong2007-06-06 17:03:40 +0000
commitbf65c66447febc62611a4a09dd445b61d45e6d40 (patch)
treee9834c3374c8e9ab48befc72848f3849f8df14ab
parent4601566370eb76dc2ea21b7502f1b4243568a381 (diff)
downloademacs-bf65c66447febc62611a4a09dd445b61d45e6d40.tar.gz
emacs-bf65c66447febc62611a4a09dd445b61d45e6d40.zip
Fix typo, and clarify error message handling.
-rw-r--r--lisp/tar-mode.el18
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