emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/tar-mode.el,v


From: Chong Yidong
Subject: [Emacs-diffs] Changes to emacs/lisp/tar-mode.el,v
Date: Wed, 06 Jun 2007 17:03:40 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      07/06/06 17:03:40

Index: tar-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/tar-mode.el,v
retrieving revision 1.111
retrieving revision 1.112
diff -u -b -r1.111 -r1.112
--- tar-mode.el 24 May 2007 06:25:46 -0000      1.111
+++ tar-mode.el 6 Jun 2007 17:03:40 -0000       1.112
@@ -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))
 




reply via email to

[Prev in Thread] Current Thread [Next in Thread]