diff options
author | Juri Linkov <juri@jurta.org> | 2008-05-11 20:31:18 +0000 |
---|---|---|
committer | Juri Linkov <juri@jurta.org> | 2008-05-11 20:31:18 +0000 |
commit | 3e7969807f31b58656c873822a0594016f5f7a66 (patch) | |
tree | a533e0ba59b128347185fdc1b316a5cb50b8f0f0 /lisp/emulation | |
parent | 21d9ed8b07440a37f19d0d9856070c2b18411ebd (diff) | |
download | emacs-3e7969807f31b58656c873822a0594016f5f7a66.tar.gz |
Put isearch-scroll property on cua-scroll-up and cua-scroll-down.
Diffstat (limited to 'lisp/emulation')
-rw-r--r-- | lisp/emulation/cua-base.el | 2 |
1 files changed, 2 insertions, 0 deletions
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 |