all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* 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 external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.