From: Basil L. Contovounesios <contovob@tcd.ie>
Date: Wed, 15 Sep 2021 18:37:08 +0000 (+0100)
Subject: Evaluate recent isearch-motion lambdas
X-Git-Tag: emacs-28.0.90~943
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ca6ae0d905ca8a9d3e9077ae85a58d69a3fceca2;p=emacs.git

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.
---

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.