(mouse-wheel-scroll-line): Use car of

mouse-wheel-scroll-amount.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5d5dd768650..dcef57f9da9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-02-25  Jason Rumney  <jasonr@gnu.org>
 
+        * term/w32-win.el (mouse-wheel-scroll-line): Use car of
+        mouse-wheel-scroll-amount.
+
         * w32-vars.el (mouse-wheel-scroll-amount): Use same definition as
         mwheel.el.
 
diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index 69285ff0017..5e5ebd12123 100644
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -83,13 +83,15 @@
 ;; The following definition is used for debugging scroll bar events.
 ;(defun w32-handle-scroll-bar-event (event) (interactive "e") (princ event))
 
+;; mwheel.el should probably be adapted to accept mouse-wheel events
+;; then this could go.
 (defun mouse-wheel-scroll-line (event)
   "Scroll the window in which EVENT occurred by `mouse-wheel-scroll-amount'."
   (interactive "e")
   (condition-case nil
       (if (< (car (cdr (cdr event))) 0)
-          (scroll-up mouse-wheel-scroll-amount)
-        (scroll-down mouse-wheel-scroll-amount))
+          (scroll-up (car mouse-wheel-scroll-amount))
+        (scroll-down (car mouse-wheel-scroll-amount)))
     (error nil)))
 
 ;; for scroll-in-place.el, this way the -scroll-line and -scroll-screen