From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 18 May 2021 22:13:28 +0000 (-0400)
Subject: * lisp/info.el (Info-isearch-push-state): Use proper closures
X-Git-Tag: emacs-28.0.90~2413
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=de4dcd8d108ac8f7855d55c7ba0ae4a10c853633;p=emacs.git

* lisp/info.el (Info-isearch-push-state): Use proper closures
---

diff --git a/lisp/info.el b/lisp/info.el
index 2757ed57826..cdf339ff6fb 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2148,8 +2148,10 @@ If DIRECTION is `backward', search in the reverse direction."
     (goto-char (if isearch-forward (point-min) (point-max)))))
 
 (defun Info-isearch-push-state ()
-  `(lambda (cmd)
-     (Info-isearch-pop-state cmd ',Info-current-file ',Info-current-node)))
+  (let ((file Info-current-file)
+        (node Info-current-node))
+    (lambda (cmd)
+      (Info-isearch-pop-state cmd file node))))
 
 (defun Info-isearch-pop-state (_cmd file node)
   (or (and (equal Info-current-file file)