From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 18 May 2021 23:03:06 +0000 (-0400)
Subject: * lisp/misearch.el (multi-isearch-push-state): Use proper closures
X-Git-Tag: emacs-28.0.90~2411
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=abedac0909654f6e88fa4108c42f3c658644ab3c;p=emacs.git

* lisp/misearch.el (multi-isearch-push-state): Use proper closures
---

diff --git a/lisp/misearch.el b/lisp/misearch.el
index 338880f25f2..7f3e981bb0e 100644
--- a/lisp/misearch.el
+++ b/lisp/misearch.el
@@ -202,8 +202,9 @@ the initial buffer."
   "Save a function restoring the state of multiple buffers search.
 Save the current buffer to the additional state parameter in the
 search status stack."
-  `(lambda (cmd)
-     (multi-isearch-pop-state cmd ,(current-buffer))))
+  (let ((buf (current-buffer)))
+    (lambda (cmd)
+      (multi-isearch-pop-state cmd buf))))
 
 (defun multi-isearch-pop-state (_cmd buffer)
   "Restore the multiple buffers search state in BUFFER.