Function: text-scale--refresh

text-scale--refresh is a byte-compiled function defined in face-remap.el.gz.

Signature

(text-scale--refresh SYMBOL NEWVAL OPERATION WHERE)

Documentation

Watcher for text-scale-remap-header-line.

See add-variable-watcher.

Source Code

;; Defined in /usr/src/emacs/lisp/face-remap.el.gz
(defun text-scale--refresh (symbol newval operation where)
  "Watcher for `text-scale-remap-header-line'.
See `add-variable-watcher'."
  (when (and (eq symbol 'text-scale-remap-header-line)
             (eq operation 'set)
             text-scale-mode)
    (with-current-buffer where
      (let ((text-scale-remap-header-line newval))
        (text-scale-mode 1)))))