# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1112221224 0
# Node ID 20dc81ce84e742019715cba91a4967a9583f2c04
# Parent  91810eae61518900bb8000ad99e456738403da5b
(cua-scroll-down): Add CUA property.

diff -r 91810eae6151 -r 20dc81ce84e7 lisp/emulation/cua-base.el
--- a/lisp/emulation/cua-base.el	Wed Mar 30 22:20:08 2005 +0000
+++ b/lisp/emulation/cua-base.el	Wed Mar 30 22:20:24 2005 +0000
@@ -1016,7 +1016,7 @@
 	(scroll-down arg)
       (beginning-of-buffer (goto-char (point-min)))))))
 
-(put 'cua-scroll-up 'CUA 'move)
+(put 'cua-scroll-down 'CUA 'move)
 
 ;;; Cursor indications