summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2021-05-18 19:03:06 -0400
committerStefan Monnier <monnier@iro.umontreal.ca>2021-05-18 19:03:06 -0400
commitabedac0909654f6e88fa4108c42f3c658644ab3c (patch)
tree6af57ed8e8241fe5d112361d7e5186e99787128e /lisp
parent41efaa54c540e9deddb49548163c0048866e3c34 (diff)
downloademacs-abedac0909654f6e88fa4108c42f3c658644ab3c.tar.gz
emacs-abedac0909654f6e88fa4108c42f3c658644ab3c.tar.bz2
emacs-abedac0909654f6e88fa4108c42f3c658644ab3c.zip
* lisp/misearch.el (multi-isearch-push-state): Use proper closures
Diffstat (limited to 'lisp')
-rw-r--r--lisp/misearch.el5
1 files changed, 3 insertions, 2 deletions
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.