From 3e85fb302a9cf88ed3668d41c4b2e4cdb7017c54 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sat, 14 Sep 2019 01:01:20 -0700 Subject: [PATCH] Port GC tuning to Emacs 27 alpha * packages/el-search/el-search.el (el-search-setup-search): Set gc-cons-percentage to 0.8 while searching. --- packages/el-search/el-search.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el index 4e9cd98a4..5e213cf2b 100644 --- a/packages/el-search/el-search.el +++ b/packages/el-search/el-search.el @@ -2168,11 +2168,12 @@ files (i.e. file names) to search in. With optional FROM-HERE non-nil, the first buffer in this stream should be the current buffer, and searching will start at the current buffer's point instead of its beginning." + (let ((gc-cons-percentage 0.8)) (el-search-setup-search-1 pattern get-buffer-stream nil setup-function) (if (not el-search-occur-flag) (el-search-continue-search from-here) (setq el-search-occur-flag nil) - (el-search-occur))) + (el-search-occur)))) (defun el-search-stream-of-directory-files (&optional directory recurse) "Return a stream of emacs-lisp files in DIRECTORY. -- 2.21.0