diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-01-24 23:31:12 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-01-24 23:31:12 +0000 |
| commit | 439d6b4b42b3c072512a73d177e57008669f5c2c (patch) | |
| tree | 0274aa1783785e66cfd359f0d94fcd5e05f64799 /lisp/tar-mode.el | |
| parent | 075e0c92520a2c26bd252244d33d41d8f0b40b9b (diff) | |
| download | emacs-439d6b4b42b3c072512a73d177e57008669f5c2c.tar.gz | |
(tar-summarize-buffer): Fix "done" message.
(tar-summarize-buffer):
Insert summary lines in same order as tar-parse-info.
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 311212de14f..1bc65f094ca 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -457,7 +457,7 @@ is visible (and the real data of the buffer is hidden)." ;; 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 @@ is visible (and the real data of the buffer is hidden)." (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" |