* lisp/emulation/cua-base.el (cua-scroll-up, cua-scroll-down): Mark them as

shift-select commands.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 997786e567bb43583d3bddab21e3da59741ababc..b184e9e92e6af9ca02e2654f753537862fda64ed 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-02-12  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * emulation/cua-base.el (cua-scroll-up, cua-scroll-down): Mark them as
+       shift-select commands.
+
 2014-02-12  Dmitry Gutov  <dgutov@yandex.ru>
 
        * progmodes/js.el (js-indent-line): Don't widen.

diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index 00058652aef2af555c6b4afd47e4f34cb8d3df37..96c9ba1e095a71bc219f7d7a34d63fe470bfb04f 100644 (file)
--- 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)