mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-24 10:38:38 +00:00
* lisp/emulation/cua-base.el (cua-scroll-up, cua-scroll-down): Mark them as
shift-select commands.
This commit is contained in:
parent
a8cb4247f9
commit
59075dcfa0
@ -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.
|
||||
|
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user