Function: mouse-wheel--create-scroll-keys

mouse-wheel--create-scroll-keys is a byte-compiled function defined in mwheel.el.gz.

Signature

(mouse-wheel--create-scroll-keys BINDING EVENT)

Documentation

Return list of key vectors for BINDING and EVENT.

BINDING is an element in mouse-wheel-scroll-amount. EVENT is an event used for scrolling, such as mouse-wheel-down-event.

Source Code

;; Defined in /usr/src/emacs/lisp/mwheel.el.gz
(defun mouse-wheel--create-scroll-keys (binding event)
  "Return list of key vectors for BINDING and EVENT.
BINDING is an element in `mouse-wheel-scroll-amount'.  EVENT is
an event used for scrolling, such as `mouse-wheel-down-event'."
  (let ((prefixes (list 'left-margin 'right-margin
                        'left-fringe 'right-fringe
                        'vertical-scroll-bar 'horizontal-scroll-bar
                        'mode-line 'header-line)))
    (if (consp binding)
        ;; With modifiers, bind only the buffer area (no prefix).
        (list `[(,@(car binding) ,event)])
      ;; No modifier: bind also some non-buffer areas of the screen.
      (cons (vector event)
            (mapcar (lambda (prefix) (vector prefix event)) prefixes)))))