From dd60908b897b60f0d351d92f885765cd45e93458 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sun, 1 Dec 2002 23:37:29 +0000 Subject: [PATCH] (mouse-wheel-scroll-amount): Fix customize type. --- lisp/mwheel.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/mwheel.el b/lisp/mwheel.el index 546d27dd345..8158db89731 100644 --- a/lisp/mwheel.el +++ b/lisp/mwheel.el @@ -111,7 +111,7 @@ less than a full screen." (choice :tag "Normal" (const :tag "Full screen" :value nil) (integer :tag "Specific # of lines") - (float :tag "Fraction of window") + (number :tag "Fraction of window") (cons (repeat (choice :tag "modifier" (const alt) (const control) (const hyper) @@ -119,7 +119,7 @@ less than a full screen." (choice :tag "scroll amount" (const :tag "Full screen" :value nil) (integer :tag "Specific # of lines") - (float :tag "Fraction of window")))) + (number :tag "Fraction of window")))) (repeat (cons (repeat (choice :tag "modifier" @@ -128,7 +128,7 @@ less than a full screen." (choice :tag "scroll amount" (const :tag "Full screen" :value nil) (integer :tag "Specific # of lines") - (float :tag "Fraction of window")))))) + (number :tag "Fraction of window")))))) (defcustom mouse-wheel-progessive-speed t "If non-nil, the faster the user moves the wheel, the faster the scrolling. -- 2.39.2