Commit 624204f0 authored by Karl Heuer's avatar Karl Heuer
Browse files

(tar-summarize-buffer): Fix "done" message.

(tar-summarize-buffer):
Insert summary lines in same order as tar-parse-info.
parent 85bd1ac6
......@@ -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"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment