[Emacs-diffs] trunk r116419: * lisp/emulation/cua-base.el (cua-scroll-up, cua-scroll-down): Mark them as

[Stefan Monnier]

------------------------------------------------------------
revno: 116419
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2014-02-12 09:48:41 -0500
message:
  * lisp/emulation/cua-base.el (cua-scroll-up, cua-scroll-down): Mark them as
  shift-select commands.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emulation/cua-base.el     cuabase.el-20091113204419-o5vbwnq5f7feedwu-2415

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-02-12 08:27:27 +0000
+++ b/lisp/ChangeLog    2014-02-12 14:48:41 +0000
@@ -1,3 +1,8 @@
+2014-02-12  Stefan Monnier  <address@hidden>
+
+       * emulation/cua-base.el (cua-scroll-up, cua-scroll-down): Mark them as
+       shift-select commands.
+
 2014-02-12  Dmitry Gutov  <address@hidden>
 
        * progmodes/js.el (js-indent-line): Don't widen.

=== modified file 'lisp/emulation/cua-base.el'
--- a/lisp/emulation/cua-base.el        2014-01-27 21:26:48 +0000
+++ b/lisp/emulation/cua-base.el        2014-02-12 14:48:41 +0000
@@ -1085,7 +1085,7 @@
 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 @@
 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)