Function: mwheel-event-button

mwheel-event-button is a byte-compiled function defined in mwheel.el.gz.

Signature

(mwheel-event-button EVENT)

Source Code

;; Defined in /usr/src/emacs/lisp/mwheel.el.gz
(defun mwheel-event-button (event)
  (let ((x (event-basic-type event)))
    ;; Map mouse-wheel events to appropriate buttons
    (if (eq 'mouse-wheel x)
        (let ((amount (car (cdr (cdr (cdr event))))))
          (if (< amount 0)
              mouse-wheel-up-event
            mouse-wheel-down-event))
      x)))