From 624204f0ca1b615e5479dd9718484801176a97cb Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 24 Jan 1996 23:31:12 +0000 Subject: [PATCH] (tar-summarize-buffer): Fix "done" message. (tar-summarize-buffer): Insert summary lines in same order as tar-parse-info. --- lisp/tar-mode.el | 4 ++-- 1 file 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" -- 2.39.2