Mercurial > emacs
comparison lisp/emulation/cua-base.el @ 94869:c8e2322a0865
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 | eb7b2376cae5 |
| children | c3309dba6542 |
comparison
equal
deleted
inserted
replaced
| 94868:8dca53338210 | 94869:c8e2322a0865 |
|---|---|
| 1149 (condition-case nil | 1149 (condition-case nil |
| 1150 (scroll-up arg) | 1150 (scroll-up arg) |
| 1151 (end-of-buffer (goto-char (point-max))))))) | 1151 (end-of-buffer (goto-char (point-max))))))) |
| 1152 | 1152 |
| 1153 (put 'cua-scroll-up 'CUA 'move) | 1153 (put 'cua-scroll-up 'CUA 'move) |
| 1154 (put 'cua-scroll-up 'isearch-scroll t) | |
| 1154 | 1155 |
| 1155 (defun cua-scroll-down (&optional arg) | 1156 (defun cua-scroll-down (&optional arg) |
| 1156 "Scroll text of current window downward ARG lines; or near full screen if no ARG. | 1157 "Scroll text of current window downward ARG lines; or near full screen if no ARG. |
| 1157 If window cannot be scrolled further, move cursor to top line instead. | 1158 If window cannot be scrolled further, move cursor to top line instead. |
| 1158 A near full screen is `next-screen-context-lines' less than a full screen. | 1159 A near full screen is `next-screen-context-lines' less than a full screen. |
| 1169 (condition-case nil | 1170 (condition-case nil |
| 1170 (scroll-down arg) | 1171 (scroll-down arg) |
| 1171 (beginning-of-buffer (goto-char (point-min))))))) | 1172 (beginning-of-buffer (goto-char (point-min))))))) |
| 1172 | 1173 |
| 1173 (put 'cua-scroll-down 'CUA 'move) | 1174 (put 'cua-scroll-down 'CUA 'move) |
| 1175 (put 'cua-scroll-down 'isearch-scroll t) | |
| 1174 | 1176 |
| 1175 ;;; Cursor indications | 1177 ;;; Cursor indications |
| 1176 | 1178 |
| 1177 (defun cua--update-indications () | 1179 (defun cua--update-indications () |
| 1178 (let* ((cursor | 1180 (let* ((cursor |