# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1014679402 0
# Node ID e8495b1178a30c962d97d9e05c0a36d6cc14a24a
# Parent  401711ddb5ef224a663e83c26bfb5a37782ebc18
(mouse-wheel-scroll-line): Use car of
mouse-wheel-scroll-amount.

diff -r 401711ddb5ef -r e8495b1178a3 lisp/term/w32-win.el
--- a/lisp/term/w32-win.el	Mon Feb 25 23:21:01 2002 +0000
+++ b/lisp/term/w32-win.el	Mon Feb 25 23:23:22 2002 +0000
@@ -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