diff options
| author | Basil L. Contovounesios <contovob@tcd.ie> | 2021-09-15 19:37:08 +0100 |
|---|---|---|
| committer | Basil L. Contovounesios <contovob@tcd.ie> | 2021-09-15 19:45:10 +0100 |
| commit | ca6ae0d905ca8a9d3e9077ae85a58d69a3fceca2 (patch) | |
| tree | 5c5bb27323b67b6dbc057397244d4477a290e6e4 /lisp/isearch.el | |
| parent | 0762c7c67fd76a2cad3ad3c8cca21e8be27a68b4 (diff) | |
| download | emacs-ca6ae0d905ca8a9d3e9077ae85a58d69a3fceca2.tar.gz emacs-ca6ae0d905ca8a9d3e9077ae85a58d69a3fceca2.tar.bz2 emacs-ca6ae0d905ca8a9d3e9077ae85a58d69a3fceca2.zip | |
Evaluate recent isearch-motion lambdas
* 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.
Diffstat (limited to 'lisp/isearch.el')
| -rw-r--r-- | lisp/isearch.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 3f5e642fd28..af6217b7ca9 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -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. |