procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Stefan Monnier 2021-05-18 18:13:28 -04:00
parent 0ccd712ad2
commit de4dcd8d10
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/info.el
View file

@ -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)