[elpa] externals/consult 46e92c929a 2/2: consult-info--prepare-buffers: Increase gc to speed up preparation

[ELPA Syncer]

branch: externals/consult
commit 46e92c929abda74555ec89bda6edbb765785c397
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    consult-info--prepare-buffers: Increase gc to speed up preparation
---
 consult-info.el | 25 +++++++++++++------------
 1 file changed, 13 insertions(+), 12 deletions(-)

diff --git a/consult-info.el b/consult-info.el
index 276e5a105c..d0da9c67e3 100644
--- a/consult-info.el
+++ b/consult-info.el
@@ -128,18 +128,19 @@
   (declare (indent 1))
   (let (buffers)
     (unwind-protect
-        (progn
-          (let ((reporter (make-progress-reporter "Preparing" 0 (length 
manuals))))
-            (seq-do-indexed (lambda (manual idx)
-                              (push (cons manual (generate-new-buffer (format 
"*info-preview-%s*" manual)))
-                                    buffers)
-                              (with-current-buffer (cdar buffers)
-                                (let (Info-history Info-history-list 
Info-history-forward)
-                                  (Info-mode)
-                                  (Info-find-node manual "Top")))
-                              (progress-reporter-update reporter (1+ idx) 
manual))
-                            manuals)
-            (progress-reporter-done reporter))
+        (let ((reporter (make-progress-reporter "Preparing" 0 (length 
manuals))))
+          (consult--with-increased-gc
+           (seq-do-indexed
+            (lambda (manual idx)
+              (push (cons manual (generate-new-buffer (format 
"*info-preview-%s*" manual)))
+                    buffers)
+              (with-current-buffer (cdar buffers)
+                (let (Info-history Info-history-list Info-history-forward)
+                  (Info-mode)
+                  (Info-find-node manual "Top")))
+              (progress-reporter-update reporter (1+ idx) manual))
+            manuals))
+          (progress-reporter-done reporter)
           (funcall fun (reverse buffers)))
       (dolist (buf buffers)
         (kill-buffer (cdr buf))))))