From ec503c284c7c59d1f0b57fccad0f8ebc89f82d05 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Wed, 30 Mar 2005 22:20:24 +0000 Subject: [PATCH] (cua-scroll-down): Add CUA property. --- lisp/emulation/cua-base.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.39.2