diff options
| author | Richard M. Stallman <rms@gnu.org> | 2003-02-15 19:20:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2003-02-15 19:20:47 +0000 |
| commit | 6ee30a2aa5fe1db81bacde2e83ab912e69ed39a9 (patch) | |
| tree | 8a42fe8b451b881b816cc48a182a4d4e9ac23fa2 /lisp/tar-mode.el | |
| parent | 57199263600f82d8bc0a4af0e43850b1af4df0ce (diff) | |
| download | emacs-6ee30a2aa5fe1db81bacde2e83ab912e69ed39a9.tar.gz | |
(tar-header-block-summarize): Use l for symlink, h for hard link.
Diffstat (limited to 'lisp/tar-mode.el')
| -rw-r--r-- | lisp/tar-mode.el | 4 |
1 files changed, 2 insertions, 2 deletions
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 |