Fix typo, and clarify error message handling.

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 65e2b0f1c0be6e405ed54b074bec8bf2a5c86efb..b97cb11165e7aa9565b223bfe1598ccb1f1ff171 100644 (file)
--- 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."
         (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))