master ca6ae0d: Evaluate recent isearch-motion lambdas

[Basil L. Contovounesios]

branch: master
commit ca6ae0d905ca8a9d3e9077ae85a58d69a3fceca2
Author: Basil L. Contovounesios <contovob@tcd.ie>
Commit: Basil L. Contovounesios <contovob@tcd.ie>

    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.
---
 lisp/isearch.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 3f5e642..af6217b 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.