Mercurial > emacs
comparison lisp/tar-mode.el @ 80592:8436412d2e08
(tar-header-block-summarize): Ensure one space around user&group.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 26 May 2008 17:41:30 +0000 |
| parents | 9d42c705fd64 |
| children | a4904e4111c5 |
comparison
equal
deleted
inserted
replaced
| 80591:ffc29d3b77cb | 80592:8436412d2e08 |
|---|---|
| 347 (size (tar-header-size tar-hblock)) | 347 (size (tar-header-size tar-hblock)) |
| 348 (time (tar-header-date tar-hblock)) | 348 (time (tar-header-date tar-hblock)) |
| 349 ;; (ck (tar-header-checksum tar-hblock)) | 349 ;; (ck (tar-header-checksum tar-hblock)) |
| 350 (type (tar-header-link-type tar-hblock)) | 350 (type (tar-header-link-type tar-hblock)) |
| 351 (link-name (tar-header-link-name tar-hblock))) | 351 (link-name (tar-header-link-name tar-hblock))) |
| 352 (format "%c%c%s%8s/%-8s%7s%s %s%s" | 352 (format "%c%c%s %7s/%-7s %7s%s %s%s" |
| 353 (if mod-p ?* ? ) | 353 (if mod-p ?* ? ) |
| 354 (cond ((or (eq type nil) (eq type 0)) ?-) | 354 (cond ((or (eq type nil) (eq type 0)) ?-) |
| 355 ((eq type 1) ?h) ; link | 355 ((eq type 1) ?h) ; link |
| 356 ((eq type 2) ?l) ; symlink | 356 ((eq type 2) ?l) ; symlink |
| 357 ((eq type 3) ?c) ; char special | 357 ((eq type 3) ?c) ; char special |