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

[Stefan Monnier]

branch: master
commit abedac0909654f6e88fa4108c42f3c658644ab3c
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * lisp/misearch.el (multi-isearch-push-state): Use proper closures
---
 lisp/misearch.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/misearch.el b/lisp/misearch.el
index 338880f..7f3e981 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.