From e596f2a24bf132fa5bda8d8e0bf7a5f60fd9ed56 Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Sat, 4 May 2002 22:17:07 +0000 Subject: [PATCH] (mouse-wheel-scroll-line) (mouse-wheel-scroll-screen): Removed. ([mouse-wheel], [C-mouse-wheel], [S-mouse-wheel]): Use mwheel-scroll. --- lisp/term/w32-win.el | 35 ++++++++--------------------------- 1 file changed, 8 insertions(+), 27 deletions(-) diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el index 5e5ebd12123..89093f894d3 100644 --- a/lisp/term/w32-win.el +++ b/lisp/term/w32-win.el @@ -83,33 +83,14 @@ ;; 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 (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 -;; commands won't interact -(setq scroll-command-groups (list '(mouse-wheel-scroll-line))) - -(defun mouse-wheel-scroll-screen (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) - (scroll-down)) - (error nil))) - -;; Bind the mouse-wheel event: -(global-set-key [mouse-wheel] 'mouse-wheel-scroll-line) -(global-set-key [C-mouse-wheel] 'mouse-wheel-scroll-screen) +;; Handle mouse-wheel events with mwheel. +;; Normally only mouse-wheel-mode and mwheel-install are autoloaded, +;; but binding mouse-wheel must be done directly, since those functions +;; do not recognize mouse-wheel as a valid button. +(autoload 'mwheel-scroll "mwheel") +(global-set-key [mouse-wheel] 'mwheel-scroll) +(global-set-key [C-mouse-wheel] 'mwheel-scroll) +(global-set-key [S-mouse-wheel] 'mwheel-scroll) (defun w32-drag-n-drop-debug (event) "Print the drag-n-drop EVENT in a readable form." -- 2.39.5