[Top][All Lists]
[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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/tar-mode.el,v,
Chong Yidong <=