Function: x-dnd-wheel-modifier-type

x-dnd-wheel-modifier-type is a byte-compiled function defined in x-dnd.el.gz.

Signature

(x-dnd-wheel-modifier-type FLAGS)

Documentation

Return the modifier type of an X modifier mask.

FLAGS is the X modifier mask of a turn of the mouse wheel.

Source Code

;; Defined in /usr/src/emacs/lisp/x-dnd.el.gz
(defun x-dnd-wheel-modifier-type (flags)
  "Return the modifier type of an X modifier mask.
FLAGS is the X modifier mask of a turn of the mouse wheel."
  (let ((modifiers (x-dnd-get-modifiers)))
    (catch 'type
      (dolist (modifier mouse-wheel-scroll-amount)
        (when (and (consp modifier)
                   (eq (x-dnd-modifier-mask (car modifier))
                       (logand flags modifiers)))
          (throw 'type (cdr modifier))))
      nil)))