# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822526272 0
# Node ID f8eba77ccb7f602944feb4c14c2c24aaf014eac3
# Parent  87b4bd8fea2606545c97cc6cd30e64f7c8c69744
(tar-summarize-buffer): Fix "done" message.
(tar-summarize-buffer):
Insert summary lines in same order as tar-parse-info.

diff -r 87b4bd8fea26 -r f8eba77ccb7f lisp/tar-mode.el
--- 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"