Mercurial > emacs

diff lisp/tar-mode.el @ 14294:f8eba77ccb7f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 b986e1fb97a5
children acf049402d18
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"