mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(mwheel-event-button): Translate mouse-wheel events.

Browse Source 
(mwheel-scroll): Recognize nil scroll amount as documented.
This commit is contained in:
Jason Rumney 2002-05-04 22:16:04 +00:00
parent 406b073da1
commit 5608c89603
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/mwheel.el
View File

@ -104,10 +104,16 @@ This can be slightly disconcerting, but some people may prefer it."
(if (not (fboundp 'event-button))
(defun mwheel-event-button (event)
(let ((x (symbol-name (event-basic-type event))))
(if (not (string-match "^mouse-\\([0-9]+\\)" x))
(error "Not a button event: %S" event))
(string-to-int (substring x (match-beginning 1) (match-end 1)))))
(fset 'mwheel-event-button 'event-button))
;; Map mouse-wheel events to appropriate buttons
(if (string-equal "mouse-wheel" x)
(let ((amount (car (cdr (cdr (cdr event))))))
(if (< amount 0)
mouse-wheel-up-button
mouse-wheel-down-button))
(if (not (string-match "^mouse-\\([0-9]+\\)" x))
(error "Not a button event: %S" event)
(string-to-int (substring x (match-beginning 1) (match-end 1)))))))
(fset 'mwheel-event-button 'event-button))
(if (not (fboundp 'event-window))
(defun mwheel-event-window (event)
@ -125,9 +131,9 @@ This should only be bound to mouse buttons 4 and 5."
(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 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,