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 | 624204f0ca1b615e5479dd9718484801176a97cb (patch) | |
| tree | e9a734984f789eef5d669a467aad6b3820e146c4 /lisp/tar-mode.el | |
| parent | 85bd1ac690b2bf666e228dba678a4a21909d7e6d (diff) | |
| download | emacs-624204f0ca1b615e5479dd9718484801176a97cb.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" |