From: Kim F. Storm <storm@cua.dk>
Date: Wed, 30 Mar 2005 22:20:24 +0000 (+0000)
Subject: (cua-scroll-down): Add CUA property.
X-Git-Tag: ttn-vms-21-2-B4~1346
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec503c284c7c59d1f0b57fccad0f8ebc89f82d05;p=emacs.git

(cua-scroll-down): Add CUA property.
---

diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index d72dc91ad2b..7b2ba5c6fb2 100644
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -1016,7 +1016,7 @@ If ARG is the atom `-', scroll upward by nearly full screen."
 	(scroll-down arg)
       (beginning-of-buffer (goto-char (point-min)))))))
 
-(put 'cua-scroll-up 'CUA 'move)
+(put 'cua-scroll-down 'CUA 'move)
 
 ;;; Cursor indications