From: Jason Rumney <jasonr@gnu.org>
Date: Mon, 25 Feb 2002 23:26:38 +0000 (+0000)
Subject: (mouse-wheel-scroll-line): Use car of
X-Git-Tag: ttn-vms-21-2-B4~16469
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ed81ee80f55afedad7e85a6b91be52b118b968f4;p=emacs.git

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

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