[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mwheel.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mwheel.el |
Date: |
Sat, 02 Mar 2002 03:18:13 -0500 |
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,
- [Emacs-diffs] Changes to emacs/lisp/mwheel.el,
Miles Bader <=