# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1181149420 0
# Node ID 4e1833e3b34b5577d32fc4ade05aa5ebce808cbb
# Parent  620eee974c9e648cf9b8cb59bec1400bf6e76f0e
Fix typo, and clarify error message handling.

diff -r 620eee974c9e -r 4e1833e3b34b lisp/tar-mode.el
--- 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))