[AUCTeX-devel] [elpa] externals/auctex 188e4b1 66/69: Temporarily bind gc-cons-threshold in time-consuming task

[Tassilo Horn]

branch: externals/auctex
commit 188e4b1617dabc896bfc407be3ba538ea8dcabc6
Author: Mosè Giordano <address@hidden>
Commit: Mosè Giordano <address@hidden>

    Temporarily bind gc-cons-threshold in time-consuming task
    
    * tex.el (TeX-search-files-by-type): Bind `gc-cons-threshold' to
      10000000 during the search, to reduce number of garbage collections
      during the task.
---
 tex.el |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/tex.el b/tex.el
index c87e539..e22898f 100644
--- a/tex.el
+++ b/tex.el
@@ -4484,7 +4484,8 @@ in the global directories only and nil in both.
 If optional argument NODIR is non-nil, remove directory part.
 
 If optional argument STRIP is non-nil, remove file extension."
-  (let* ((spec (assq filetype TeX-search-files-type-alist))
+  (let* ((gc-cons-threshold 10000000)
+        (spec (assq filetype TeX-search-files-type-alist))
         (kpse-var (nth 1 spec))
         (rawdirs (nth 2 spec))
         (exts (nth 3 spec))