diff options
| author | Richard M. Stallman | 2003-02-15 19:20:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2003-02-15 19:20:47 +0000 |
| commit | 6ee30a2aa5fe1db81bacde2e83ab912e69ed39a9 (patch) | |
| tree | 8a42fe8b451b881b816cc48a182a4d4e9ac23fa2 | |
| parent | 57199263600f82d8bc0a4af0e43850b1af4df0ce (diff) | |
| download | emacs-6ee30a2aa5fe1db81bacde2e83ab912e69ed39a9.tar.gz emacs-6ee30a2aa5fe1db81bacde2e83ab912e69ed39a9.zip | |
(tar-header-block-summarize): Use l for symlink, h for hard link.
| -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." | |||
| 349 | (format "%c%c%s%8s/%-8s%7s%s %s%s" | 349 | (format "%c%c%s%8s/%-8s%7s%s %s%s" |
| 350 | (if mod-p ?* ? ) | 350 | (if mod-p ?* ? ) |
| 351 | (cond ((or (eq type nil) (eq type 0)) ?-) | 351 | (cond ((or (eq type nil) (eq type 0)) ?-) |
| 352 | ((eq type 1) ?l) ; link | 352 | ((eq type 1) ?h) ; link |
| 353 | ((eq type 2) ?s) ; symlink | 353 | ((eq type 2) ?l) ; symlink |
| 354 | ((eq type 3) ?c) ; char special | 354 | ((eq type 3) ?c) ; char special |
| 355 | ((eq type 4) ?b) ; block special | 355 | ((eq type 4) ?b) ; block special |
| 356 | ((eq type 5) ?d) ; directory | 356 | ((eq type 5) ?d) ; directory |