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

mouse-wheel-scroll-amount.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5d5dd768650af75dc9156af457234c997284c630..dcef57f9da9c8cc762314b4c5d6029ce7e3c79d8 100644 (file)
--- 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 69285ff0017028b71a00de84306a1ceee5147573..5e5ebd121232d375a06621c68644c8d60f6ef236 100644 (file)
--- 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