From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 15 Feb 2003 19:20:47 +0000 (+0000)
Subject: (tar-header-block-summarize): Use l for symlink, h for hard link.
X-Git-Tag: ttn-vms-21-2-B4~11178
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6ee30a2aa5fe1db81bacde2e83ab912e69ed39a9;p=emacs.git

(tar-header-block-summarize): Use l for symlink, h for hard link.
---

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index b83e168ff57..03cb199de73 100644
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -349,8 +349,8 @@ MODE should be an integer which is a file mode value."
     (format "%c%c%s%8s/%-8s%7s%s %s%s"
 	    (if mod-p ?* ? )
 	    (cond ((or (eq type nil) (eq type 0)) ?-)
-		  ((eq type 1) ?l)	; link
-		  ((eq type 2) ?s)	; symlink
+		  ((eq type 1) ?h)	; link
+		  ((eq type 2) ?l)	; symlink
 		  ((eq type 3) ?c)	; char special
 		  ((eq type 4) ?b)	; block special
 		  ((eq type 5) ?d)	; directory