mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

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

Browse Source 
shift-select commands.
This commit is contained in:
Stefan Monnier 2014-02-12 09:48:41 -05:00
parent a8cb4247f9
commit 59075dcfa0
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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.

4
lisp/emulation/cua-base.el
View File

@ -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)