Function: text-scale-increase

text-scale-increase is an autoloaded, interactive and byte-compiled function defined in face-remap.el.gz.

Signature

(text-scale-increase INC)

Documentation

Increase the font size of the default face in current buffer by INC steps.

If the new height is other than the default, text-scale-mode(var)/text-scale-mode(fun) is enabled.

Each step scales the height of the default face by the variable text-scale-mode-step (a negative number of steps decreases the height by the same amount). As a special case, an argument of 0 will remove any scaling currently active.

View in manual

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/face-remap.el.gz
;;;###autoload
(defun text-scale-increase (inc)
  "Increase the font size of the default face in current buffer by INC steps.
If the new height is other than the default, `text-scale-mode' is enabled.

Each step scales the height of the default face by the variable
`text-scale-mode-step' (a negative number of steps decreases the
height by the same amount).  As a special case, an argument of 0
will remove any scaling currently active."
  (interactive "p")
  (let* ((current-value (if text-scale-mode text-scale-mode-amount 0))
         (new-value (if (= inc 0) 0 (+ current-value inc))))
    (if (or (> new-value (text-scale-max-amount))
            (< new-value (text-scale-min-amount)))
        (user-error "Cannot %s the font size any further"
                    (if (> inc 0) "increase" "decrease")))
    (setq text-scale-mode-amount new-value))
  (text-scale-mode (if (zerop text-scale-mode-amount) -1 1)))