(mouse-wheel-scroll-amount): Fix customize type.

dd60908b · Andreas Schwab · 5213c97d · dd60908b
Commit dd60908b authored Dec 01, 2002 by Andreas Schwab
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 3 deletions

lisp/mwheel.el lisp/mwheel.el +3 -3

No files found.
--- 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.