# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1045336847 0
# Node ID 2edf03d7c602558cf107bcbe0c9e46a10cb92b2c
# Parent  6e4a6658cec0d09a6f2ba5684707ceddfb128839
(tar-header-block-summarize): Use l for symlink, h for hard link.

diff -r 6e4a6658cec0 -r 2edf03d7c602 lisp/tar-mode.el
--- a/lisp/tar-mode.el	Sat Feb 15 15:41:33 2003 +0000
+++ b/lisp/tar-mode.el	Sat Feb 15 19:20:47 2003 +0000
@@ -349,8 +349,8 @@
     (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