mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-05 20:43:08 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Juri Linkov 2008-05-11 20:31:18 +00:00
parent 21d9ed8b07
commit 3e7969807f
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/emulation/cua-base.el
View File

@ -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