From 59075dcfa0b4b71da37a2dc0f0c1dfdfdf365d9a Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 12 Feb 2014 09:48:41 -0500 Subject: [PATCH] * lisp/emulation/cua-base.el (cua-scroll-up, cua-scroll-down): Mark them as shift-select commands. --- lisp/ChangeLog | 5 +++++ lisp/emulation/cua-base.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 997786e567b..b184e9e92e6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-02-12 Stefan Monnier + + * emulation/cua-base.el (cua-scroll-up, cua-scroll-down): Mark them as + shift-select commands. + 2014-02-12 Dmitry Gutov * progmodes/js.el (js-indent-line): Don't widen. diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index 00058652aef..96c9ba1e095 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el @@ -1085,7 +1085,7 @@ If window cannot be scrolled further, move cursor to bottom line instead. A near full screen is `next-screen-context-lines' less than a full screen. Negative ARG means scroll downward. If ARG is the atom `-', scroll downward by nearly full screen." - (interactive "P") + (interactive "^P") (cond ((eq arg '-) (cua-scroll-down nil)) ((< (prefix-numeric-value arg) 0) @@ -1106,7 +1106,7 @@ If window cannot be scrolled further, move cursor to top line instead. A near full screen is `next-screen-context-lines' less than a full screen. Negative ARG means scroll upward. If ARG is the atom `-', scroll upward by nearly full screen." - (interactive "P") + (interactive "^P") (cond ((eq arg '-) (cua-scroll-up nil)) ((< (prefix-numeric-value arg) 0) -- 2.39.2