Mercurial > emacs

changeset 94869:c8e2322a0865

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Put isearch-scroll property on cua-scroll-up and cua-scroll-down.
author Juri Linkov <juri@jurta.org>
date Sun, 11 May 2008 20:31:18 +0000
parents 8dca53338210
children 9ba92386b1f2
files lisp/emulation/cua-base.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/cua-base.el	Sun May 11 20:30:26 2008 +0000
+++ b/lisp/emulation/cua-base.el	Sun May 11 20:31:18 2008 +0000
@@ -1151,6 +1151,7 @@
       (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 @@
       (beginning-of-buffer (goto-char (point-min)))))))
 
 (put 'cua-scroll-down 'CUA 'move)
+(put 'cua-scroll-down 'isearch-scroll t)
 
 ;;; Cursor indications