/[emacs]/emacs/lisp/mwheel.el
ViewVC logotype

Diff of /emacs/lisp/mwheel.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by miles, Mon Feb 25 23:46:09 2002 UTC revision 1.10 by miles, Sat Mar 2 08:18:12 2002 UTC
# Line 122  This should only be bound to mouse butto Line 122  This should only be bound to mouse butto
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,

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26