Mercurial > emacs
changeset 14294:f8eba77ccb7f
(tar-summarize-buffer): Fix "done" message.
(tar-summarize-buffer):
Insert summary lines in same order as tar-parse-info.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 24 Jan 1996 23:31:12 +0000 |
| parents | 87b4bd8fea26 |
| children | ca40593f8933 |
| files | lisp/tar-mode.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/tar-mode.el Wed Jan 24 23:30:25 1996 +0000 +++ b/lisp/tar-mode.el Wed Jan 24 23:31:12 1996 +0000 @@ -457,7 +457,7 @@ ;; A tar file should end with a block or two of nulls, ;; but let's not get a fatal error if it doesn't. (if (eq tokens 'empty-tar-block) - (message "Parsing tar file...done.") + (message "Parsing tar file...done") (message "Warning: premature EOF parsing tar file"))) (save-excursion (goto-char (point-min)) @@ -465,7 +465,7 @@ (summaries nil)) ;; Collect summary lines and insert them all at once since tar files ;; can be pretty big. - (tar-dolist (tar-desc tar-parse-info) + (tar-dolist (tar-desc (reverse tar-parse-info)) (setq summaries (cons (tar-header-block-summarize (tar-desc-tokens tar-desc)) (cons "\n"