From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 15 Jan 1996 01:35:45 +0000 (+0000)
Subject: (tar-summarize-buffer): Speed-up for large files.
X-Git-Tag: emacs-19.34~1686
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a728aa90299292396187d0ebf0293a1badfcc318;p=emacs.git

(tar-summarize-buffer): Speed-up for large files.
---

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)