122 |
(prog1 |
(prog1 |
123 |
(selected-window) |
(selected-window) |
124 |
(select-window (mwheel-event-window event))))) |
(select-window (mwheel-event-window event))))) |
125 |
(mods (delete 'click (event-modifiers event))) |
(mods |
126 |
(amt (if mods |
(delq 'click (delq 'double (delq 'triple (event-modifiers event))))) |
127 |
(cdr (assoc mods (cdr mouse-wheel-scroll-amount))) |
(amt |
128 |
(car mouse-wheel-scroll-amount)))) |
(or (and mods |
129 |
|
(cdr (assoc mods (cdr mouse-wheel-scroll-amount)))) |
130 |
|
(car mouse-wheel-scroll-amount)))) |
131 |
(if (floatp amt) (setq amt (1+ (truncate (* amt (window-height)))))) |
(if (floatp amt) (setq amt (1+ (truncate (* amt (window-height)))))) |
132 |
(when (and mouse-wheel-progessive-speed (numberp amt)) |
(when (and mouse-wheel-progessive-speed (numberp amt)) |
133 |
;; When the double-mouse-N comes in, a mouse-N has been executed already, |
;; When the double-mouse-N comes in, a mouse-N has been executed already, |