Mercurial > emacs
diff lisp/w32-vars.el @ 43539:1c217acd2f6f
(mouse-wheel-scroll-amount): Use same definition as
mwheel.el.
author | Jason Rumney <jasonr@gnu.org> |
---|---|
date | Mon, 25 Feb 2002 23:17:44 +0000 |
parents | d254de347285 |
children | 1344a9d40dc8 |
line wrap: on
line diff
--- a/lisp/w32-vars.el Mon Feb 25 22:52:54 2002 +0000 +++ b/lisp/w32-vars.el Mon Feb 25 23:17:44 2002 +0000 @@ -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