procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Set mwheel default scroll value to 1 (bug#43380)

Browse source 
* lisp/mwheel.el (mouse-wheel-scroll-amount): Change default value 5 to 1
and shift default value from 1 to 5.
Default value is changed as discussed in etc/TODO.
This commit is contained in:
Theodor Thornhill 2020-09-24 21:59:30 +03:00 • committed by Juri Linkov
parent 4bc4d19bd1
commit 89dd8cd215
3 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
etc/NEWS
View file

@ -134,6 +134,10 @@ the mouse cursor is on the scroll bars, fringes, margins, header line,
and mode line. ('mwheel-mode' is enabled by default on most graphical
displays.)
---
** Mouse wheel scrolling now defaults to one line at a time.
Old default of five lines at a time is now bound to Shift modifier.
---
** The default value of 'frame-title-format' and 'icon-title-format' has changed.
These variables are used to display the title bar of visible frames

7
etc/TODO
View file

@ -924,17 +924,14 @@ features of that interface could be implemented NS.
**** Smooth scrolling -- maybe not a good idea
Today, by default, scrolling with a trackpad makes the text move in
steps of five lines. (Scrolling with SHIFT scrolls one line at a time.)
steps of one line. (Scrolling with SHIFT scrolls five lines at a time.)
The "mac" port provides smooth, pixel-based, scrolling. This is a very
popular features. However, there are drawbacks to this method: what
popular feature. However, there are drawbacks to this method: what
happens if only a fraction of a line is visible at the top of a
window, is the partially visible text considered part of the window or
not? (Technically, what should 'window-start' return.)
An alternative would be to make one-line scrolling the default on NS
(or in Emacs in general).
Note: This feature might not be allowed to be implemented until also
implemented in Emacs for a free system.

4
lisp/mwheel.el
View file

@ -85,7 +85,7 @@ set to the event sent when clicking on the mouse wheel button."
:type 'number)
(defcustom mouse-wheel-scroll-amount
'(5 ((shift) . 1) ((meta) . nil) ((control) . text-scale))
'(1 ((shift) . 5) ((meta) . nil) ((control) . text-scale))
"Amount to scroll windows by when spinning the mouse wheel.
This is an alist mapping the modifier key to the amount to scroll when
the wheel is moved with the modifier key depressed.
@ -125,7 +125,7 @@ scrolling."
(float :tag "Scroll fraction of window")
(const :tag "Change face size" :value text-scale)))))
:set 'mouse-wheel-change-button
:version "27.1")
:version "28.1")
(defcustom mouse-wheel-progressive-speed t
"If non-nil, the faster the user moves the wheel, the faster the scrolling.