Function: mouse-wheel-text-scale

mouse-wheel-text-scale is an interactive and byte-compiled function defined in mwheel.el.gz.

Signature

(mouse-wheel-text-scale EVENT)

Documentation

Increase or decrease the height of the default face according to the EVENT.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/mwheel.el.gz
(defun mouse-wheel-text-scale (event)
  "Increase or decrease the height of the default face according to the EVENT."
  (interactive (list last-input-event))
  (let ((selected-window (selected-window))
        (scroll-window (mouse-wheel--get-scroll-window event))
        (button (mwheel-event-button event)))
    (select-window scroll-window 'mark-for-redisplay)
    (unwind-protect
        (cond ((eq button mouse-wheel-down-event)
               (text-scale-increase 1))
              ((eq button mouse-wheel-up-event)
               (text-scale-decrease 1)))
      (select-window selected-window))))