unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* mouse-wheel-scroll
@ 2017-03-28 23:13 Tak Kunihiro
  2017-03-29  2:39 ` mouse-wheel-scroll Eli Zaretskii
                   ` (2 more replies)
  0 siblings, 3 replies; 39+ messages in thread
From: Tak Kunihiro @ 2017-03-28 23:13 UTC (permalink / raw)
  To: emacs-devel; +Cc: Kunihiro Tak

I propose to change default of two parameters related to
mouse-wheel-scroll.

With a modern mouse or/and track-pad equipped with laptop, I found
scrolling works better with following setup

 mouse-wheel-scroll-amount '(1 ((shift) . 5) ((control) . nil))
 mouse-wheel-progressive-speed nil

instead of current default as shown below.

 mouse-wheel-scroll-amount '(5 ((shift) . 1) ((control) . nil))
 mouse-wheel-progressive-speed t

I think mount of scrolling should be rather determined by operating
system, before Emacs.  How I propose to change default is, I (who is
mouse lover) took couple of years to realize this setup and I do not get 
lost in scroll anymore.  Those who are not mouse lover do not care the
default anyway.



diff --git a/mwheel.el b/mwheel.el
index 9e03854..1749ca3 100644
--- a/mwheel.el
+++ b/mwheel.el
@@ -98,7 +98,7 @@ set to the event sent when clicking on the mouse wheel button."
   :group 'mouse
   :type 'number)

-(defcustom mouse-wheel-scroll-amount '(5 ((shift) . 1) ((control) . nil))
+(defcustom mouse-wheel-scroll-amount '(1 ((shift) . 5) ((control) . nil))
   "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.
@@ -134,7 +134,7 @@ less than a full screen."
                     (float :tag "Fraction of window")))))
   :set 'mouse-wheel-change-button)

-(defcustom mouse-wheel-progressive-speed t
+(defcustom mouse-wheel-progressive-speed nil
   "If non-nil, the faster the user moves the wheel, the faster the scrolling.
 Note that this has no effect when `mouse-wheel-scroll-amount' specifies
 a \"near full screen\" scroll or when the mouse wheel sends key instead




^ permalink raw reply related	[flat|nested] 39+ messages in thread
* Re: mouse-wheel-scroll
@ 2017-03-31 14:02 Angelo Graziosi
  2017-03-31 22:37 ` mouse-wheel-scroll Richard Stallman
  0 siblings, 1 reply; 39+ messages in thread
From: Angelo Graziosi @ 2017-03-31 14:02 UTC (permalink / raw)
  To: tkk, Emacs developers

Tak wrote
> @example
>   (setq mouse-wheel-scroll-amount '(1 ((shift) . 5) ((control))))
>   (setq mouse-wheel-progressive-speed nil)
>   @end example

I tried that in my init file and now the scrolling is very nice!

Thank you!

   Angelo



^ permalink raw reply	[flat|nested] 39+ messages in thread

end of thread, other threads:[~2017-04-04 12:35 UTC | newest]

Thread overview: 39+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2017-03-28 23:13 mouse-wheel-scroll Tak Kunihiro
2017-03-29  2:39 ` mouse-wheel-scroll Eli Zaretskii
2017-03-29  6:06   ` mouse-wheel-scroll Tak Kunihiro
2017-03-29  7:36 ` mouse-wheel-scroll martin rudalics
2017-03-29  7:44   ` mouse-wheel-scroll Dani Moncayo
2017-03-29 19:09     ` mouse-wheel-scroll Philipp Stephani
2017-03-29 21:18       ` mouse-wheel-scroll Simen Heggestøyl
2017-03-29 21:22 ` mouse-wheel-scroll Kaushal Modi
2017-03-30  2:47   ` mouse-wheel-scroll Eli Zaretskii
2017-03-30  5:07     ` mouse-wheel-scroll Tak Kunihiro
2017-03-30 18:15       ` mouse-wheel-scroll Eli Zaretskii
2017-03-30 18:39         ` mouse-wheel-scroll Stefan Monnier
2017-03-30 20:34           ` mouse-wheel-scroll Eli Zaretskii
2017-03-31  0:26         ` mouse-wheel-scroll Tak Kunihiro
2017-03-31  6:39           ` mouse-wheel-scroll Eli Zaretskii
2017-03-31  6:55             ` mouse-wheel-scroll Dani Moncayo
2017-03-31  8:01               ` mouse-wheel-scroll Eli Zaretskii
2017-03-31  8:53                 ` mouse-wheel-scroll Dani Moncayo
2017-03-31  9:05                   ` mouse-wheel-scroll Eli Zaretskii
2017-03-31  9:24                     ` mouse-wheel-scroll Dani Moncayo
2017-03-31 12:22                       ` mouse-wheel-scroll Eli Zaretskii
2017-03-31 19:02                         ` mouse-wheel-scroll Richard Copley
2017-04-01 14:29                           ` mouse-wheel-scroll Eli Zaretskii
2017-04-02 10:41                             ` mouse-wheel-scroll Richard Copley
2017-04-02 16:37                               ` mouse-wheel-scroll Eli Zaretskii
2017-04-01  8:17                   ` mouse-wheel-scroll Anders Lindgren
2017-03-31  9:04             ` mouse-wheel-scroll Tak Kunihiro
2017-04-02 23:20             ` mouse-wheel-scroll Tak Kunihiro
2017-04-03  2:34               ` mouse-wheel-scroll Eli Zaretskii
2017-04-03  5:50                 ` mouse-wheel-scroll Tak Kunihiro
2017-04-03 14:37                   ` mouse-wheel-scroll Eli Zaretskii
2017-04-03 23:07                     ` mouse-wheel-scroll Tak Kunihiro
2017-04-04 12:35                     ` mouse-wheel-scroll Alan Third
2017-03-30  7:29     ` mouse-wheel-scroll Dani Moncayo
2017-03-30  7:29     ` mouse-wheel-scroll martin rudalics
2017-03-30 13:44     ` mouse-wheel-scroll Kaushal Modi
  -- strict thread matches above, loose matches on Subject: below --
2017-03-31 14:02 mouse-wheel-scroll Angelo Graziosi
2017-03-31 22:37 ` mouse-wheel-scroll Richard Stallman
2017-04-01  8:13   ` mouse-wheel-scroll Angelo Graziosi

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).