From de4dcd8d108ac8f7855d55c7ba0ae4a10c853633 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 18 May 2021 18:13:28 -0400 Subject: [PATCH] * lisp/info.el (Info-isearch-push-state): Use proper closures --- lisp/info.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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) -- 2.39.5