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 3f5e642fd28d9ade82bedcab8a683681486d1d63..af6217b7ca93f395e6871f2005da03c39d5ddd04 100644 (file)
--- 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.