diff options
| author | Jason Rumney <jasonr@gnu.org> | 2002-02-25 23:21:01 +0000 |
|---|---|---|
| committer | Jason Rumney <jasonr@gnu.org> | 2002-02-25 23:21:01 +0000 |
| commit | 3bd7d448e99e7667de44a347154dd8afba8c7703 (patch) | |
| tree | 34711d10373874e5bd3a763803deb4c9da870760 /lisp/w32-vars.el | |
| parent | 744de246b56034e5d311e1247709df05b47a0539 (diff) | |
| download | emacs-3bd7d448e99e7667de44a347154dd8afba8c7703.tar.gz | |
(mouse-wheel-scroll-amount): Use same definition as
mwheel.el.
Diffstat (limited to 'lisp/w32-vars.el')
| -rw-r--r-- | lisp/w32-vars.el | 26 |
1 files changed, 22 insertions, 4 deletions
diff --git a/lisp/w32-vars.el b/lisp/w32-vars.el index 13fbb4a2810..dc318783030 100644 --- a/lisp/w32-vars.el +++ b/lisp/w32-vars.el @@ -31,10 +31,28 @@ :version "21.3" :prefix "w32") -(defcustom mouse-wheel-scroll-amount 4 - "*Number of lines to scroll per click of the mouse wheel." - :type 'integer - :group 'w32) +;; mwheel.el should probably be adapted to accept mouse-wheel events +;; then this could go. +(defcustom mouse-wheel-scroll-amount '(5 ((shift) . 1) ((control) . nil)) + "*Amount to scroll windows by when spinning the mouse wheel. +This is actually a cons cell, where the first item is the amount to scroll +on a normal wheel event. The rest is ignored on Windows, see mwheel.el if +you wish to implement modifier keys." + :group 'w32 + :group 'mouse + :type '(cons + (choice :tag "Normal" + (const :tag "Full screen" :value nil) + (integer :tag "Specific # of lines") + (float :tag "Fraction of window")) + (repeat + (cons + (repeat (choice :tag "modifier" (const alt) (const control) (const hyper) + (const meta) (const shift) (const super))) + (choice :tag "scroll amount" + (const :tag "Full screen" :value nil) + (integer :tag "Specific # of lines") + (float :tag "Fraction of window")))))) ;; Redefine the font selection to use the standard W32 dialog (defcustom w32-use-w32-font-dialog t |