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

Adjust font size of the default face according to EVENT.

See also text-scale-adjust.

View in manual

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/mwheel.el.gz
(defun mouse-wheel-text-scale (event)
  "Adjust font size of the default face according to EVENT.
See also `text-scale-adjust'."
  (interactive (list last-input-event))
  (let ((selected-window (selected-window))
        (scroll-window (mouse-wheel--get-scroll-window event))
        (button (event-basic-type event)))
    (select-window scroll-window 'mark-for-redisplay)
    (unwind-protect
        (cond ((mwheel--is-dir-p down button)
               (text-scale-increase 1))
              ((mwheel--is-dir-p up button)
               (text-scale-decrease 1)))
      (select-window selected-window))))