annotate lisp/mwheel.el @ 109867:7b3550d93e3a

support for fit-width
author Joakim <joakim@localhost.localdomain>
date Sun, 27 Jun 2010 02:18:55 +0200
parents b97c55098dcc
children 280c8ae2476d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
48574
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
1 ;;; mwheel.el --- Wheel mouse support
26398
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
2
95835
c11958c9ca00 (mouse-wheel-follow-mouse, mwheel-event-window):
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
3 ;; Copyright (C) 1998, 2000, 2001, 2002, 2002, 2004, 2005, 2006, 2007,
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 106241
diff changeset
4 ;; 2008, 2009, 2010 Free Software Foundation, Inc.
26398
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
5 ;; Maintainer: William M. Perry <wmperry@gnu.org>
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
6 ;; Keywords: mouse
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
7
26410
55a234a9fe88 Fix copyright notice. Don't require 'cl at run time.
Gerd Moellmann <gerd@gnu.org>
parents: 26398
diff changeset
8 ;; This file is part of GNU Emacs.
26398
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
9
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94163
diff changeset
10 ;; GNU Emacs is free software: you can redistribute it and/or modify
26410
55a234a9fe88 Fix copyright notice. Don't require 'cl at run time.
Gerd Moellmann <gerd@gnu.org>
parents: 26398
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94163
diff changeset
12 ;; the Free Software Foundation, either version 3 of the License, or
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94163
diff changeset
13 ;; (at your option) any later version.
26398
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
14
26410
55a234a9fe88 Fix copyright notice. Don't require 'cl at run time.
Gerd Moellmann <gerd@gnu.org>
parents: 26398
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
55a234a9fe88 Fix copyright notice. Don't require 'cl at run time.
Gerd Moellmann <gerd@gnu.org>
parents: 26398
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
55a234a9fe88 Fix copyright notice. Don't require 'cl at run time.
Gerd Moellmann <gerd@gnu.org>
parents: 26398
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
55a234a9fe88 Fix copyright notice. Don't require 'cl at run time.
Gerd Moellmann <gerd@gnu.org>
parents: 26398
diff changeset
18 ;; GNU General Public License for more details.
26398
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
19
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94163
diff changeset
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
26398
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
22
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
23 ;;; Commentary:
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
24
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
25 ;; This code will enable the use of the infamous 'wheel' on the new
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
26 ;; crop of mice. Under XFree86 and the XSuSE X Servers, the wheel
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
27 ;; events are sent as button4/button5 events.
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
28
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
29 ;; I for one would prefer some way of converting the button4/button5
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
30 ;; events into different event types, like 'mwheel-up' or
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
31 ;; 'mwheel-down', but I cannot find a way to do this very easily (or
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
32 ;; portably), so for now I just live with it.
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
33
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
34 ;; To enable this code, simply put this at the top of your .emacs
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
35 ;; file:
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
36 ;;
51271
ff87ff02952e Commentary change.
Glenn Morris <rgm@gnu.org>
parents: 50872
diff changeset
37 ;; (mouse-wheel-mode 1)
26398
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
38
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
39 ;;; Code:
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
40
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
41 (require 'custom)
48574
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
42 (require 'timer)
26398
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
43
104986
00c7c0e3f902 (mouse-wheel-mode): Make sure the new defvar doesn't
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104980
diff changeset
44 (defvar mouse-wheel-mode)
104980
a3d3fc00075b Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 104979
diff changeset
45
38582
96ca8702243e (mouse-wheel-down-button, mouse-wheel-up-button):
Gerd Moellmann <gerd@gnu.org>
parents: 33227
diff changeset
46 ;; Setter function for mouse-button user-options. Switch Mouse Wheel
96ca8702243e (mouse-wheel-down-button, mouse-wheel-up-button):
Gerd Moellmann <gerd@gnu.org>
parents: 33227
diff changeset
47 ;; mode off and on again so that the old button is unbound and
96ca8702243e (mouse-wheel-down-button, mouse-wheel-up-button):
Gerd Moellmann <gerd@gnu.org>
parents: 33227
diff changeset
48 ;; new button is bound to mwheel-scroll.
96ca8702243e (mouse-wheel-down-button, mouse-wheel-up-button):
Gerd Moellmann <gerd@gnu.org>
parents: 33227
diff changeset
49
96ca8702243e (mouse-wheel-down-button, mouse-wheel-up-button):
Gerd Moellmann <gerd@gnu.org>
parents: 33227
diff changeset
50 (defun mouse-wheel-change-button (var button)
104979
c545eaa5edad * mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104295
diff changeset
51 (set-default var button)
c545eaa5edad * mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104295
diff changeset
52 ;; Sync the bindings.
104986
00c7c0e3f902 (mouse-wheel-mode): Make sure the new defvar doesn't
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104980
diff changeset
53 (when (bound-and-true-p mouse-wheel-mode) (mouse-wheel-mode 1)))
38582
96ca8702243e (mouse-wheel-down-button, mouse-wheel-up-button):
Gerd Moellmann <gerd@gnu.org>
parents: 33227
diff changeset
54
49617
78d4c6395dec (mouse-wheel-down-button, mouse-wheel-up-button, mouse-wheel-click-button): Add
Juanma Barranquero <lekktu@gmail.com>
parents: 49597
diff changeset
55 (defvar mouse-wheel-down-button 4)
78d4c6395dec (mouse-wheel-down-button, mouse-wheel-up-button, mouse-wheel-click-button): Add
Juanma Barranquero <lekktu@gmail.com>
parents: 49597
diff changeset
56 (make-obsolete-variable 'mouse-wheel-down-button
94163
36e553d98d49 (mouse-wheel-down-button, mouse-wheel-up-button, mouse-wheel-click-button):
Juanma Barranquero <lekktu@gmail.com>
parents: 93838
diff changeset
57 'mouse-wheel-down-event
36e553d98d49 (mouse-wheel-down-button, mouse-wheel-up-button, mouse-wheel-click-button):
Juanma Barranquero <lekktu@gmail.com>
parents: 93838
diff changeset
58 "22.1")
46066
99487f98aaa7 (mouse-wheel-change-button): Deactivate before changing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46001
diff changeset
59 (defcustom mouse-wheel-down-event
104295
f03494acbd1b * mwheel.el (mouse-wheel-down-event, mouse-wheel-up-event): Don't
Chong Yidong <cyd@stupidchicken.com>
parents: 100908
diff changeset
60 (if (or (featurep 'w32-win) (featurep 'ns-win))
51387
97d539e7d0d1 (mouse-wheel-down-event, mouse-wheel-up-event):
Jason Rumney <jasonr@gnu.org>
parents: 51271
diff changeset
61 'wheel-up
104295
f03494acbd1b * mwheel.el (mouse-wheel-down-event, mouse-wheel-up-event): Don't
Chong Yidong <cyd@stupidchicken.com>
parents: 100908
diff changeset
62 (intern (format "mouse-%s" mouse-wheel-down-button)))
46066
99487f98aaa7 (mouse-wheel-change-button): Deactivate before changing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46001
diff changeset
63 "Event used for scrolling down."
38582
96ca8702243e (mouse-wheel-down-button, mouse-wheel-up-button):
Gerd Moellmann <gerd@gnu.org>
parents: 33227
diff changeset
64 :group 'mouse
46066
99487f98aaa7 (mouse-wheel-change-button): Deactivate before changing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46001
diff changeset
65 :type 'symbol
38582
96ca8702243e (mouse-wheel-down-button, mouse-wheel-up-button):
Gerd Moellmann <gerd@gnu.org>
parents: 33227
diff changeset
66 :set 'mouse-wheel-change-button)
96ca8702243e (mouse-wheel-down-button, mouse-wheel-up-button):
Gerd Moellmann <gerd@gnu.org>
parents: 33227
diff changeset
67
49617
78d4c6395dec (mouse-wheel-down-button, mouse-wheel-up-button, mouse-wheel-click-button): Add
Juanma Barranquero <lekktu@gmail.com>
parents: 49597
diff changeset
68 (defvar mouse-wheel-up-button 5)
78d4c6395dec (mouse-wheel-down-button, mouse-wheel-up-button, mouse-wheel-click-button): Add
Juanma Barranquero <lekktu@gmail.com>
parents: 49597
diff changeset
69 (make-obsolete-variable 'mouse-wheel-up-button
94163
36e553d98d49 (mouse-wheel-down-button, mouse-wheel-up-button, mouse-wheel-click-button):
Juanma Barranquero <lekktu@gmail.com>
parents: 93838
diff changeset
70 'mouse-wheel-up-event
36e553d98d49 (mouse-wheel-down-button, mouse-wheel-up-button, mouse-wheel-click-button):
Juanma Barranquero <lekktu@gmail.com>
parents: 93838
diff changeset
71 "22.1")
46066
99487f98aaa7 (mouse-wheel-change-button): Deactivate before changing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46001
diff changeset
72 (defcustom mouse-wheel-up-event
104295
f03494acbd1b * mwheel.el (mouse-wheel-down-event, mouse-wheel-up-event): Don't
Chong Yidong <cyd@stupidchicken.com>
parents: 100908
diff changeset
73 (if (or (featurep 'w32-win) (featurep 'ns-win))
51387
97d539e7d0d1 (mouse-wheel-down-event, mouse-wheel-up-event):
Jason Rumney <jasonr@gnu.org>
parents: 51271
diff changeset
74 'wheel-down
104295
f03494acbd1b * mwheel.el (mouse-wheel-down-event, mouse-wheel-up-event): Don't
Chong Yidong <cyd@stupidchicken.com>
parents: 100908
diff changeset
75 (intern (format "mouse-%s" mouse-wheel-up-button)))
68788
c78868572d4f (mouse-wheel-up-event): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 68651
diff changeset
76 "Event used for scrolling up."
38582
96ca8702243e (mouse-wheel-down-button, mouse-wheel-up-button):
Gerd Moellmann <gerd@gnu.org>
parents: 33227
diff changeset
77 :group 'mouse
46066
99487f98aaa7 (mouse-wheel-change-button): Deactivate before changing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46001
diff changeset
78 :type 'symbol
38582
96ca8702243e (mouse-wheel-down-button, mouse-wheel-up-button):
Gerd Moellmann <gerd@gnu.org>
parents: 33227
diff changeset
79 :set 'mouse-wheel-change-button)
96ca8702243e (mouse-wheel-down-button, mouse-wheel-up-button):
Gerd Moellmann <gerd@gnu.org>
parents: 33227
diff changeset
80
49617
78d4c6395dec (mouse-wheel-down-button, mouse-wheel-up-button, mouse-wheel-click-button): Add
Juanma Barranquero <lekktu@gmail.com>
parents: 49597
diff changeset
81 (defvar mouse-wheel-click-button 2)
78d4c6395dec (mouse-wheel-down-button, mouse-wheel-up-button, mouse-wheel-click-button): Add
Juanma Barranquero <lekktu@gmail.com>
parents: 49597
diff changeset
82 (make-obsolete-variable 'mouse-wheel-click-button
94163
36e553d98d49 (mouse-wheel-down-button, mouse-wheel-up-button, mouse-wheel-click-button):
Juanma Barranquero <lekktu@gmail.com>
parents: 93838
diff changeset
83 'mouse-wheel-click-event
36e553d98d49 (mouse-wheel-down-button, mouse-wheel-up-button, mouse-wheel-click-button):
Juanma Barranquero <lekktu@gmail.com>
parents: 93838
diff changeset
84 "22.1")
48574
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
85 (defcustom mouse-wheel-click-event
104295
f03494acbd1b * mwheel.el (mouse-wheel-down-event, mouse-wheel-up-event): Don't
Chong Yidong <cyd@stupidchicken.com>
parents: 100908
diff changeset
86 (intern (format "mouse-%s" mouse-wheel-click-button))
48574
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
87 "Event that should be temporarily inhibited after mouse scrolling.
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
88 The mouse wheel is typically on the mouse-2 button, so it may easily
68882
b7113ead6c0a (mouse-wheel-click-event, mouse-wheel-mode): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 68788
diff changeset
89 happen that text is accidentally yanked into the buffer when
48574
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
90 scrolling with the mouse wheel. To prevent that, this variable can be
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
91 set to the event sent when clicking on the mouse wheel button."
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
92 :group 'mouse
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
93 :type 'symbol
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
94 :set 'mouse-wheel-change-button)
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
95
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
96 (defcustom mouse-wheel-inhibit-click-time 0.35
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
97 "Time in seconds to inhibit clicking on mouse wheel button after scroll."
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
98 :group 'mouse
48593
338527f8ef91 (mouse-wheel-inhibit-click-time): Fix custom type.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48574
diff changeset
99 :type 'number)
48574
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
100
45994
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
101 (defcustom mouse-wheel-scroll-amount '(5 ((shift) . 1) ((control) . nil))
26398
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
102 "Amount to scroll windows by when spinning the mouse wheel.
46001
5133c42d55cc (mouse-wheel-scroll-amount, mwheel-scroll, mouse-wheel-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45994
diff changeset
103 This is an alist mapping the modifier key to the amount to scroll when
5133c42d55cc (mouse-wheel-scroll-amount, mwheel-scroll, mouse-wheel-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45994
diff changeset
104 the wheel is moved with the modifier key depressed.
5133c42d55cc (mouse-wheel-scroll-amount, mwheel-scroll, mouse-wheel-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45994
diff changeset
105 Elements of the list have the form (MODIFIERS . AMOUNT) or just AMOUNT if
5133c42d55cc (mouse-wheel-scroll-amount, mwheel-scroll, mouse-wheel-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45994
diff changeset
106 MODIFIERS is nil.
26398
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
107
50872
ba2845537409 (mouse-wheel-scroll-amount): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 49617
diff changeset
108 AMOUNT should be the number of lines to scroll, or nil for near full
46001
5133c42d55cc (mouse-wheel-scroll-amount, mwheel-scroll, mouse-wheel-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45994
diff changeset
109 screen. It can also be a floating point number, specifying the fraction of
5133c42d55cc (mouse-wheel-scroll-amount, mwheel-scroll, mouse-wheel-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45994
diff changeset
110 a full screen to scroll. A near full screen is `next-screen-context-lines'
5133c42d55cc (mouse-wheel-scroll-amount, mwheel-scroll, mouse-wheel-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45994
diff changeset
111 less than a full screen."
26398
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
112 :group 'mouse
45994
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
113 :type '(cons
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
114 (choice :tag "Normal"
26398
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
115 (const :tag "Full screen" :value nil)
45994
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
116 (integer :tag "Specific # of lines")
48772
baf774b3f991 (mouse-wheel-scroll-amount): Revert previous change -
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48609
diff changeset
117 (float :tag "Fraction of window")
46001
5133c42d55cc (mouse-wheel-scroll-amount, mwheel-scroll, mouse-wheel-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45994
diff changeset
118 (cons
5133c42d55cc (mouse-wheel-scroll-amount, mwheel-scroll, mouse-wheel-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45994
diff changeset
119 (repeat (choice :tag "modifier"
5133c42d55cc (mouse-wheel-scroll-amount, mwheel-scroll, mouse-wheel-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45994
diff changeset
120 (const alt) (const control) (const hyper)
5133c42d55cc (mouse-wheel-scroll-amount, mwheel-scroll, mouse-wheel-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45994
diff changeset
121 (const meta) (const shift) (const super)))
5133c42d55cc (mouse-wheel-scroll-amount, mwheel-scroll, mouse-wheel-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45994
diff changeset
122 (choice :tag "scroll amount"
5133c42d55cc (mouse-wheel-scroll-amount, mwheel-scroll, mouse-wheel-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45994
diff changeset
123 (const :tag "Full screen" :value nil)
5133c42d55cc (mouse-wheel-scroll-amount, mwheel-scroll, mouse-wheel-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45994
diff changeset
124 (integer :tag "Specific # of lines")
48772
baf774b3f991 (mouse-wheel-scroll-amount): Revert previous change -
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48609
diff changeset
125 (float :tag "Fraction of window"))))
45994
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
126 (repeat
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
127 (cons
46001
5133c42d55cc (mouse-wheel-scroll-amount, mwheel-scroll, mouse-wheel-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45994
diff changeset
128 (repeat (choice :tag "modifier"
5133c42d55cc (mouse-wheel-scroll-amount, mwheel-scroll, mouse-wheel-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45994
diff changeset
129 (const alt) (const control) (const hyper)
45994
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
130 (const meta) (const shift) (const super)))
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
131 (choice :tag "scroll amount"
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
132 (const :tag "Full screen" :value nil)
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
133 (integer :tag "Specific # of lines")
104986
00c7c0e3f902 (mouse-wheel-mode): Make sure the new defvar doesn't
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104980
diff changeset
134 (float :tag "Fraction of window")))))
00c7c0e3f902 (mouse-wheel-mode): Make sure the new defvar doesn't
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104980
diff changeset
135 :set 'mouse-wheel-change-button)
45994
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
136
58160
4ffb29088324 (mouse-wheel-progressive-speed): Fix typo in name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53578
diff changeset
137 (defcustom mouse-wheel-progressive-speed t
45994
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
138 "If non-nil, the faster the user moves the wheel, the faster the scrolling.
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
139 Note that this has no effect when `mouse-wheel-scroll-amount' specifies
46001
5133c42d55cc (mouse-wheel-scroll-amount, mwheel-scroll, mouse-wheel-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45994
diff changeset
140 a \"near full screen\" scroll or when the mouse wheel sends key instead
5133c42d55cc (mouse-wheel-scroll-amount, mwheel-scroll, mouse-wheel-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45994
diff changeset
141 of button events."
45994
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
142 :group 'mouse
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
143 :type 'boolean)
26398
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
144
46066
99487f98aaa7 (mouse-wheel-change-button): Deactivate before changing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46001
diff changeset
145 (defcustom mouse-wheel-follow-mouse t
26398
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
146 "Whether the mouse wheel should scroll the window that the mouse is over.
46001
5133c42d55cc (mouse-wheel-scroll-amount, mwheel-scroll, mouse-wheel-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45994
diff changeset
147 This can be slightly disconcerting, but some people prefer it."
26398
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
148 :group 'mouse
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
149 :type 'boolean)
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
150
95835
c11958c9ca00 (mouse-wheel-follow-mouse, mwheel-event-window):
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
151 (eval-and-compile
c11958c9ca00 (mouse-wheel-follow-mouse, mwheel-event-window):
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
152 (if (fboundp 'event-button)
c11958c9ca00 (mouse-wheel-follow-mouse, mwheel-event-window):
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
153 (fset 'mwheel-event-button 'event-button)
45994
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
154 (defun mwheel-event-button (event)
46066
99487f98aaa7 (mouse-wheel-change-button): Deactivate before changing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46001
diff changeset
155 (let ((x (event-basic-type event)))
45994
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
156 ;; Map mouse-wheel events to appropriate buttons
46066
99487f98aaa7 (mouse-wheel-change-button): Deactivate before changing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46001
diff changeset
157 (if (eq 'mouse-wheel x)
45994
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
158 (let ((amount (car (cdr (cdr (cdr event))))))
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
159 (if (< amount 0)
46066
99487f98aaa7 (mouse-wheel-change-button): Deactivate before changing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46001
diff changeset
160 mouse-wheel-up-event
99487f98aaa7 (mouse-wheel-change-button): Deactivate before changing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46001
diff changeset
161 mouse-wheel-down-event))
95835
c11958c9ca00 (mouse-wheel-follow-mouse, mwheel-event-window):
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
162 x))))
45994
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
163
95835
c11958c9ca00 (mouse-wheel-follow-mouse, mwheel-event-window):
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
164 (if (fboundp 'event-window)
c11958c9ca00 (mouse-wheel-follow-mouse, mwheel-event-window):
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
165 (fset 'mwheel-event-window 'event-window)
45994
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
166 (defun mwheel-event-window (event)
95835
c11958c9ca00 (mouse-wheel-follow-mouse, mwheel-event-window):
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
167 (posn-window (event-start event)))))
26398
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
168
48574
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
169 (defvar mwheel-inhibit-click-event-timer nil
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
170 "Timer running while mouse wheel click event is inhibited.")
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
171
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
172 (defun mwheel-inhibit-click-timeout ()
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
173 "Handler for `mwheel-inhibit-click-event-timer'."
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
174 (setq mwheel-inhibit-click-event-timer nil)
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
175 (remove-hook 'pre-command-hook 'mwheel-filter-click-events))
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
176
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
177 (defun mwheel-filter-click-events ()
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
178 "Discard `mouse-wheel-click-event' while scrolling the mouse."
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
179 (if (eq (event-basic-type last-input-event) mouse-wheel-click-event)
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
180 (setq this-command 'ignore)))
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
181
106241
7ce04dfc904d Mouse-wheel scrolling for DocView Continuous mode. (Bug#4896)
Juri Linkov <juri@jurta.org>
parents: 104986
diff changeset
182 (defvar mwheel-scroll-up-function 'scroll-up
7ce04dfc904d Mouse-wheel scrolling for DocView Continuous mode. (Bug#4896)
Juri Linkov <juri@jurta.org>
parents: 104986
diff changeset
183 "Function that does the job of scrolling upward.")
7ce04dfc904d Mouse-wheel scrolling for DocView Continuous mode. (Bug#4896)
Juri Linkov <juri@jurta.org>
parents: 104986
diff changeset
184
7ce04dfc904d Mouse-wheel scrolling for DocView Continuous mode. (Bug#4896)
Juri Linkov <juri@jurta.org>
parents: 104986
diff changeset
185 (defvar mwheel-scroll-down-function 'scroll-down
7ce04dfc904d Mouse-wheel scrolling for DocView Continuous mode. (Bug#4896)
Juri Linkov <juri@jurta.org>
parents: 104986
diff changeset
186 "Function that does the job of scrolling downward.")
7ce04dfc904d Mouse-wheel scrolling for DocView Continuous mode. (Bug#4896)
Juri Linkov <juri@jurta.org>
parents: 104986
diff changeset
187
45994
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
188 (defun mwheel-scroll (event)
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
189 "Scroll up or down according to the EVENT.
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
190 This should only be bound to mouse buttons 4 and 5."
46066
99487f98aaa7 (mouse-wheel-change-button): Deactivate before changing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46001
diff changeset
191 (interactive (list last-input-event))
45994
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
192 (let* ((curwin (if mouse-wheel-follow-mouse
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
193 (prog1
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
194 (selected-window)
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
195 (select-window (mwheel-event-window event)))))
93838
90f39a5d591c (mwheel-scroll): Deactivate any temporarily active region if point
Chong Yidong <cyd@stupidchicken.com>
parents: 79721
diff changeset
196 (buffer (window-buffer curwin))
90f39a5d591c (mwheel-scroll): Deactivate any temporarily active region if point
Chong Yidong <cyd@stupidchicken.com>
parents: 79721
diff changeset
197 (opoint (with-current-buffer buffer
90f39a5d591c (mwheel-scroll): Deactivate any temporarily active region if point
Chong Yidong <cyd@stupidchicken.com>
parents: 79721
diff changeset
198 (when (eq (car-safe transient-mark-mode) 'only)
90f39a5d591c (mwheel-scroll): Deactivate any temporarily active region if point
Chong Yidong <cyd@stupidchicken.com>
parents: 79721
diff changeset
199 (point))))
45994
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
200 (mods
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
201 (delq 'click (delq 'double (delq 'triple (event-modifiers event)))))
46001
5133c42d55cc (mouse-wheel-scroll-amount, mwheel-scroll, mouse-wheel-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45994
diff changeset
202 (amt (assoc mods mouse-wheel-scroll-amount)))
5133c42d55cc (mouse-wheel-scroll-amount, mwheel-scroll, mouse-wheel-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45994
diff changeset
203 ;; Extract the actual amount or find the element that has no modifiers.
5133c42d55cc (mouse-wheel-scroll-amount, mwheel-scroll, mouse-wheel-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45994
diff changeset
204 (if amt (setq amt (cdr amt))
5133c42d55cc (mouse-wheel-scroll-amount, mwheel-scroll, mouse-wheel-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45994
diff changeset
205 (let ((list-elt mouse-wheel-scroll-amount))
5133c42d55cc (mouse-wheel-scroll-amount, mwheel-scroll, mouse-wheel-mode):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45994
diff changeset
206 (while (consp (setq amt (pop list-elt))))))
45994
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
207 (if (floatp amt) (setq amt (1+ (truncate (* amt (window-height))))))
58160
4ffb29088324 (mouse-wheel-progressive-speed): Fix typo in name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53578
diff changeset
208 (when (and mouse-wheel-progressive-speed (numberp amt))
45994
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
209 ;; When the double-mouse-N comes in, a mouse-N has been executed already,
46066
99487f98aaa7 (mouse-wheel-change-button): Deactivate before changing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46001
diff changeset
210 ;; So by adding things up we get a squaring up (1, 3, 6, 10, 15, ...).
45994
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
211 (setq amt (* amt (event-click-count event))))
26398
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
212 (unwind-protect
45994
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
213 (let ((button (mwheel-event-button event)))
70528
c8171c0fa382 (mwheel-scroll): Make sure that when scrolling multiple
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68882
diff changeset
214 (cond ((eq button mouse-wheel-down-event)
106241
7ce04dfc904d Mouse-wheel scrolling for DocView Continuous mode. (Bug#4896)
Juri Linkov <juri@jurta.org>
parents: 104986
diff changeset
215 (condition-case nil (funcall mwheel-scroll-down-function amt)
70528
c8171c0fa382 (mwheel-scroll): Make sure that when scrolling multiple
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68882
diff changeset
216 ;; Make sure we do indeed scroll to the beginning of
c8171c0fa382 (mwheel-scroll): Make sure that when scrolling multiple
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68882
diff changeset
217 ;; the buffer.
c8171c0fa382 (mwheel-scroll): Make sure that when scrolling multiple
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68882
diff changeset
218 (beginning-of-buffer
c8171c0fa382 (mwheel-scroll): Make sure that when scrolling multiple
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68882
diff changeset
219 (unwind-protect
106241
7ce04dfc904d Mouse-wheel scrolling for DocView Continuous mode. (Bug#4896)
Juri Linkov <juri@jurta.org>
parents: 104986
diff changeset
220 (funcall mwheel-scroll-down-function)
70528
c8171c0fa382 (mwheel-scroll): Make sure that when scrolling multiple
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68882
diff changeset
221 ;; If the first scroll succeeded, then some scrolling
c8171c0fa382 (mwheel-scroll): Make sure that when scrolling multiple
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68882
diff changeset
222 ;; is possible: keep scrolling til the beginning but
c8171c0fa382 (mwheel-scroll): Make sure that when scrolling multiple
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68882
diff changeset
223 ;; do not signal an error. For some reason, we have
96361
a99299e4d2de American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents: 95835
diff changeset
224 ;; to do it even if the first scroll signaled an
70528
c8171c0fa382 (mwheel-scroll): Make sure that when scrolling multiple
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68882
diff changeset
225 ;; error, because otherwise the window is recentered
c8171c0fa382 (mwheel-scroll): Make sure that when scrolling multiple
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68882
diff changeset
226 ;; for a reason that escapes me. This problem seems
c8171c0fa382 (mwheel-scroll): Make sure that when scrolling multiple
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68882
diff changeset
227 ;; to only affect scroll-down. --Stef
c8171c0fa382 (mwheel-scroll): Make sure that when scrolling multiple
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68882
diff changeset
228 (set-window-start (selected-window) (point-min))))))
c8171c0fa382 (mwheel-scroll): Make sure that when scrolling multiple
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68882
diff changeset
229 ((eq button mouse-wheel-up-event)
106241
7ce04dfc904d Mouse-wheel scrolling for DocView Continuous mode. (Bug#4896)
Juri Linkov <juri@jurta.org>
parents: 104986
diff changeset
230 (condition-case nil (funcall mwheel-scroll-up-function amt)
70528
c8171c0fa382 (mwheel-scroll): Make sure that when scrolling multiple
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68882
diff changeset
231 ;; Make sure we do indeed scroll to the end of the buffer.
106241
7ce04dfc904d Mouse-wheel scrolling for DocView Continuous mode. (Bug#4896)
Juri Linkov <juri@jurta.org>
parents: 104986
diff changeset
232 (end-of-buffer (while t (funcall mwheel-scroll-up-function)))))
45994
65253ed28734 Undo last patch for now.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45947
diff changeset
233 (t (error "Bad binding in mwheel-scroll"))))
93838
90f39a5d591c (mwheel-scroll): Deactivate any temporarily active region if point
Chong Yidong <cyd@stupidchicken.com>
parents: 79721
diff changeset
234 (if curwin (select-window curwin)))
90f39a5d591c (mwheel-scroll): Deactivate any temporarily active region if point
Chong Yidong <cyd@stupidchicken.com>
parents: 79721
diff changeset
235 ;; If there is a temporarily active region, deactivate it iff
90f39a5d591c (mwheel-scroll): Deactivate any temporarily active region if point
Chong Yidong <cyd@stupidchicken.com>
parents: 79721
diff changeset
236 ;; scrolling moves point.
90f39a5d591c (mwheel-scroll): Deactivate any temporarily active region if point
Chong Yidong <cyd@stupidchicken.com>
parents: 79721
diff changeset
237 (when opoint
90f39a5d591c (mwheel-scroll): Deactivate any temporarily active region if point
Chong Yidong <cyd@stupidchicken.com>
parents: 79721
diff changeset
238 (with-current-buffer buffer
90f39a5d591c (mwheel-scroll): Deactivate any temporarily active region if point
Chong Yidong <cyd@stupidchicken.com>
parents: 79721
diff changeset
239 (when (/= opoint (point))
90f39a5d591c (mwheel-scroll): Deactivate any temporarily active region if point
Chong Yidong <cyd@stupidchicken.com>
parents: 79721
diff changeset
240 (deactivate-mark)))))
48574
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
241 (when (and mouse-wheel-click-event mouse-wheel-inhibit-click-time)
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
242 (if mwheel-inhibit-click-event-timer
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
243 (cancel-timer mwheel-inhibit-click-event-timer)
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
244 (add-hook 'pre-command-hook 'mwheel-filter-click-events))
49597
e88404e8f2cf Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48772
diff changeset
245 (setq mwheel-inhibit-click-event-timer
48574
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
246 (run-with-timer mouse-wheel-inhibit-click-time nil
3e3b1f1265f5 Avoid accidental yanking of text while scrolling with
Kim F. Storm <storm@cua.dk>
parents: 48253
diff changeset
247 'mwheel-inhibit-click-timeout))))
32867
553975760fe9 (mouse-wheel-mode): New global minor mode.
Miles Bader <miles@gnu.org>
parents: 26410
diff changeset
248
107871
d7b161b7a686 Add the `scroll-command' property.
Juri Linkov <juri@jurta.org>
parents: 107852
diff changeset
249 (put 'mwheel-scroll 'scroll-command t)
107852
4abde609aac9 Add variable `scroll-preserve-screen-position-commands'.
Juri Linkov <juri@jurta.org>
parents: 106815
diff changeset
250
104979
c545eaa5edad * mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104295
diff changeset
251 (defvar mwheel-installed-bindings nil)
c545eaa5edad * mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104295
diff changeset
252
104986
00c7c0e3f902 (mouse-wheel-mode): Make sure the new defvar doesn't
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104980
diff changeset
253 ;; preloaded ;;;###autoload
32867
553975760fe9 (mouse-wheel-mode): New global minor mode.
Miles Bader <miles@gnu.org>
parents: 26410
diff changeset
254 (define-minor-mode mouse-wheel-mode
553975760fe9 (mouse-wheel-mode): New global minor mode.
Miles Bader <miles@gnu.org>
parents: 26410
diff changeset
255 "Toggle mouse wheel support.
553975760fe9 (mouse-wheel-mode): New global minor mode.
Miles Bader <miles@gnu.org>
parents: 26410
diff changeset
256 With prefix argument ARG, turn on if positive, otherwise off.
68882
b7113ead6c0a (mouse-wheel-click-event, mouse-wheel-mode): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 68788
diff changeset
257 Return non-nil if the new state is enabled."
104979
c545eaa5edad * mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104295
diff changeset
258 :init-value t
c545eaa5edad * mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104295
diff changeset
259 ;; We'd like to use custom-initialize-set here so the setup is done
c545eaa5edad * mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104295
diff changeset
260 ;; before dumping, but at the point where the defcustom is evaluated,
c545eaa5edad * mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104295
diff changeset
261 ;; the corresponding function isn't defined yet, so
c545eaa5edad * mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104295
diff changeset
262 ;; custom-initialize-set signals an error.
c545eaa5edad * mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104295
diff changeset
263 :initialize 'custom-initialize-delay
32867
553975760fe9 (mouse-wheel-mode): New global minor mode.
Miles Bader <miles@gnu.org>
parents: 26410
diff changeset
264 :global t
553975760fe9 (mouse-wheel-mode): New global minor mode.
Miles Bader <miles@gnu.org>
parents: 26410
diff changeset
265 :group 'mouse
104979
c545eaa5edad * mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104295
diff changeset
266 ;; Remove previous bindings, if any.
c545eaa5edad * mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104295
diff changeset
267 (while mwheel-installed-bindings
c545eaa5edad * mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104295
diff changeset
268 (let ((key (pop mwheel-installed-bindings)))
c545eaa5edad * mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104295
diff changeset
269 (when (eq (lookup-key (current-global-map) key) 'mwheel-scroll)
c545eaa5edad * mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104295
diff changeset
270 (global-unset-key key))))
c545eaa5edad * mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104295
diff changeset
271 ;; Setup bindings as needed.
c545eaa5edad * mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104295
diff changeset
272 (when mouse-wheel-mode
c545eaa5edad * mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104295
diff changeset
273 (dolist (event (list mouse-wheel-down-event mouse-wheel-up-event))
c545eaa5edad * mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104295
diff changeset
274 (dolist (key (mapcar (lambda (amt) `[(,@(if (consp amt) (car amt)) ,event)])
c545eaa5edad * mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104295
diff changeset
275 mouse-wheel-scroll-amount))
c545eaa5edad * mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104295
diff changeset
276 (global-set-key key 'mwheel-scroll)
c545eaa5edad * mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104295
diff changeset
277 (push key mwheel-installed-bindings)))))
32867
553975760fe9 (mouse-wheel-mode): New global minor mode.
Miles Bader <miles@gnu.org>
parents: 26410
diff changeset
278
553975760fe9 (mouse-wheel-mode): New global minor mode.
Miles Bader <miles@gnu.org>
parents: 26410
diff changeset
279 ;;; Compatibility entry point
104986
00c7c0e3f902 (mouse-wheel-mode): Make sure the new defvar doesn't
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104980
diff changeset
280 ;; preloaded ;;;###autoload
32867
553975760fe9 (mouse-wheel-mode): New global minor mode.
Miles Bader <miles@gnu.org>
parents: 26410
diff changeset
281 (defun mwheel-install (&optional uninstall)
553975760fe9 (mouse-wheel-mode): New global minor mode.
Miles Bader <miles@gnu.org>
parents: 26410
diff changeset
282 "Enable mouse wheel support."
46066
99487f98aaa7 (mouse-wheel-change-button): Deactivate before changing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46001
diff changeset
283 (mouse-wheel-mode (if uninstall -1 1)))
32867
553975760fe9 (mouse-wheel-mode): New global minor mode.
Miles Bader <miles@gnu.org>
parents: 26410
diff changeset
284
26398
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
285 (provide 'mwheel)
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
286
58160
4ffb29088324 (mouse-wheel-progressive-speed): Fix typo in name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53578
diff changeset
287 ;; arch-tag: 50ed00e7-3686-4b7a-8037-fb31aa5c237f
26398
7eb699cb9ef2 Initial import from perry
William M. Perry <wmperry@aventail.com>
parents:
diff changeset
288 ;;; mwheel.el ends here