[Emacs-diffs] Changes to emacs/lisp/mwheel.el

[Miles Bader]

Index: emacs/lisp/mwheel.el
diff -c emacs/lisp/mwheel.el:1.9 emacs/lisp/mwheel.el:1.10
*** emacs/lisp/mwheel.el:1.9    Mon Feb 25 18:46:09 2002
--- emacs/lisp/mwheel.el        Sat Mar  2 03:18:12 2002
***************
*** 122,131 ****
                       (prog1
                           (selected-window)
                         (select-window (mwheel-event-window event)))))
!          (mods (delete 'click (event-modifiers event)))
!          (amt (if mods
!                   (cdr (assoc mods (cdr mouse-wheel-scroll-amount)))
!                   (car mouse-wheel-scroll-amount))))
      (if (floatp amt) (setq amt (1+ (truncate (* amt (window-height))))))
      (when (and mouse-wheel-progessive-speed (numberp amt))
        ;; When the double-mouse-N comes in, a mouse-N has been executed 
already,
--- 122,133 ----
                       (prog1
                           (selected-window)
                         (select-window (mwheel-event-window event)))))
!          (mods
!         (delq 'click (delq 'double (delq 'triple (event-modifiers event)))))
!          (amt
!         (or (and mods
!                  (cdr (assoc mods (cdr mouse-wheel-scroll-amount))))
!             (car mouse-wheel-scroll-amount))))
      (if (floatp amt) (setq amt (1+ (truncate (* amt (window-height))))))
      (when (and mouse-wheel-progessive-speed (numberp amt))
        ;; When the double-mouse-N comes in, a mouse-N has been executed 
already,