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 (mwheel-event-button event)))
    (select-window scroll-window 'mark-for-redisplay)
    (unwind-protect
        (cond ((memq button (list mouse-wheel-down-event
                                  mouse-wheel-down-alternate-event))
               (text-scale-increase 1))
              ((memq button (list mouse-wheel-up-event
                                  mouse-wheel-up-alternate-event))
               (text-scale-decrease 1)))
      (select-window selected-window))))