From: Juri Linkov <juri@jurta.org>
Date: Sun, 11 May 2008 20:31:18 +0000 (+0000)
Subject: Put isearch-scroll property on cua-scroll-up and cua-scroll-down.
X-Git-Tag: emacs-pretest-23.0.90~5624
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3e7969807f31b58656c873822a0594016f5f7a66;p=emacs.git

Put isearch-scroll property on cua-scroll-up and cua-scroll-down.
---

diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index c7c9ea5663a..9047b6473a5 100644
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -1151,6 +1151,7 @@ If ARG is the atom `-', scroll downward by nearly full screen."
       (end-of-buffer (goto-char (point-max)))))))
 
 (put 'cua-scroll-up 'CUA 'move)
+(put 'cua-scroll-up 'isearch-scroll t)
 
 (defun cua-scroll-down (&optional arg)
   "Scroll text of current window downward ARG lines; or near full screen if no ARG.
@@ -1171,6 +1172,7 @@ If ARG is the atom `-', scroll upward by nearly full screen."
       (beginning-of-buffer (goto-char (point-min)))))))
 
 (put 'cua-scroll-down 'CUA 'move)
+(put 'cua-scroll-down 'isearch-scroll t)
 
 ;;; Cursor indications