From: Stefan Monnier 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)