Function: mouse-wheel--remove-bindings

mouse-wheel--remove-bindings is a byte-compiled function defined in mwheel.el.gz.

Signature

(mouse-wheel--remove-bindings)

Documentation

Remove all mouse wheel key bindings.

This is a helper function for mouse-wheel-mode(var)/mouse-wheel-mode(fun).

Source Code

;; Defined in /usr/src/emacs/lisp/mwheel.el.gz
(defun mouse-wheel--remove-bindings ()
  "Remove all mouse wheel key bindings.
This is a helper function for `mouse-wheel-mode'."
  (dolist (binding mouse-wheel--installed-bindings-alist)
    (let ((key (car binding))
          (fun (cdr binding)))
     (when (eq (lookup-key (current-global-map) key) fun)
       (global-unset-key key))))
  (setq mouse-wheel--installed-bindings-alist nil))