* Properties on cua-scroll-{up,down}
@ 2008-03-10 2:12 Daniel Colascione
0 siblings, 0 replies; only message in thread
From: Daniel Colascione @ 2008-03-10 2:12 UTC (permalink / raw)
To: emacs-devel
[-- Attachment #1: Type: text/plain, Size: 311 bytes --]
Attached is a small patch adding isearch-scroll properties to cua-
scroll-up and cua-scroll-down. This property lets them be used inside
an isearch when isearch-allow-scroll is t. That's always the problem
with redefining core functions: it subtly breaks things other depend
on specific function names.
[-- Attachment #2: cua-base-props.diff --]
[-- Type: application/octet-stream, Size: 553 bytes --]
--- cua-base.el 09 Mar 2008 21:54:58 -0400 1.92
+++ cua-base.el 09 Mar 2008 22:02:14 -0400
@@ -1153,6 +1153,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.
@@ -1173,6 +1174,7 @@
(beginning-of-buffer (goto-char (point-min)))))))
(put 'cua-scroll-down 'CUA 'move)
+(put 'cua-scroll-down 'isearch-scroll t)
;;; Cursor indications
[-- Attachment #3: Type: text/plain, Size: 1 bytes --]
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2008-03-10 2:12 UTC | newest]
Thread overview: (only message) (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2008-03-10 2:12 Properties on cua-scroll-{up,down} Daniel Colascione
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).