Mercurial > emacs
changeset 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 | fbdf4317e25f |
| children | 401711ddb5ef |
| files | lisp/w32-vars.el |
| diffstat | 1 files changed, 22 insertions(+), 4 deletions(-) [+] |
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