From b3ddc2a7382d1fd2b18f8b75446746381364b48e Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Sat, 4 May 2002 22:16:31 +0000 Subject: (mouse-wheel-scroll-amount): Removed. --- lisp/w32-vars.el | 23 ----------------------- 1 file changed, 23 deletions(-) (limited to 'lisp/w32-vars.el') diff --git a/lisp/w32-vars.el b/lisp/w32-vars.el index 9e2733c68b..c92bcee383 100644 --- a/lisp/w32-vars.el +++ b/lisp/w32-vars.el @@ -33,29 +33,6 @@ :version "21.3" :prefix "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 "*Use the standard font dialog. -- cgit v1.2.3