From a728aa90299292396187d0ebf0293a1badfcc318 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 15 Jan 1996 01:35:45 +0000 Subject: [PATCH] (tar-summarize-buffer): Speed-up for large files. --- lisp/tar-mode.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 28a31f504ec..311212de14f 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -461,11 +461,16 @@ is visible (and the real data of the buffer is hidden)." (message "Warning: premature EOF parsing tar file"))) (save-excursion (goto-char (point-min)) - (let ((buffer-read-only nil)) + (let ((buffer-read-only nil) + (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) - (insert-string - (tar-header-block-summarize (tar-desc-tokens tar-desc))) - (insert-string "\n")) + (setq summaries + (cons (tar-header-block-summarize (tar-desc-tokens tar-desc)) + (cons "\n" + summaries)))) + (insert (apply 'concat summaries)) (make-local-variable 'tar-header-offset) (setq tar-header-offset (point)) (narrow-to-region 1 tar-header-offset) -- 2.39.2