Mercurial > emacs

changeset 43541:e8495b1178a3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-wheel-scroll-line): Use car of mouse-wheel-scroll-amount.
author Jason Rumney <jasonr@gnu.org>
date Mon, 25 Feb 2002 23:23:22 +0000
parents 401711ddb5ef
children 809c9be7bf38
files lisp/term/w32-win.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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