Function: tab-bar-auto-width-1

tab-bar-auto-width-1 is a byte-compiled function defined in tab-bar.el.gz.

Signature

(tab-bar-auto-width-1 WVALUE)

Documentation

Return scaled value if WVALUE, if necessary.

If WVALUE is a list of the form accepted as pixel width specifications by tab-bar-auto-width-max and suchlike, return its value as it should be scaled for display on the current frame.

Source Code

;; Defined in /usr/src/emacs/lisp/tab-bar.el.gz
(defun tab-bar-auto-width-1 (wvalue)
  "Return scaled value if WVALUE, if necessary.
If WVALUE is a list of the form accepted as pixel width specifications
by `tab-bar-auto-width-max' and suchlike, return its value as it should
be scaled for display on the current frame."
  (if (consp wvalue)
      (let ((height (frame-char-height)))
        (if (< height 15)
            (car wvalue)
          (* (car wvalue) (/ height 15.0))))
    wvalue))