mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-02 21:52:04 -08:00
Code Issues Projects Releases Wiki Activity

Evaluate recent isearch-motion lambdas

Browse source 
* lisp/isearch.el (beginning-of-buffer, end-of-buffer)
(scroll-up-command, scroll-down-command): Evaluate the lambdas
inside the isearch-motion properties of these commands.
This commit is contained in:
Basil L. Contovounesios 2021-09-15 19:37:08 +01:00
parent 0762c7c67f
commit ca6ae0d905
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/isearch.el
View file

@ -2945,13 +2945,13 @@ See also the related option `isearch-allow-motion'."
:group 'isearch)
(put 'beginning-of-buffer 'isearch-motion
'((lambda () (goto-char (point-min))) . forward))
(cons (lambda () (goto-char (point-min))) 'forward))
(put 'end-of-buffer 'isearch-motion
'((lambda () (goto-char (point-max)) (recenter -1 t)) . backward))
(cons (lambda () (goto-char (point-max)) (recenter -1 t)) 'backward))
(put 'scroll-up-command 'isearch-motion
'((lambda () (goto-char (window-end)) (recenter 0 t)) . forward))
(cons (lambda () (goto-char (window-end)) (recenter 0 t)) 'forward))
(put 'scroll-down-command 'isearch-motion
'((lambda () (goto-char (window-start)) (recenter -1 t)) . backward))
(cons (lambda () (goto-char (window-start)) (recenter -1 t)) 'backward))
(defcustom isearch-allow-motion nil
"Whether to allow movement between isearch matches by cursor motion commands.