Function: tab-line-tab-face-modified

tab-line-tab-face-modified is a byte-compiled function defined in tab-line.el.gz.

Signature

(tab-line-tab-face-modified TAB TABS FACE BUFFER-P SELECTED-P)

Documentation

Return FACE for TAB according to whether its buffer is modified.

When TAB is a modified, file-backed buffer, make FACE inherit from tab-line-tab-modified. For use in tab-line-tab-face-functions.

Source Code

;; Defined in /usr/src/emacs/lisp/tab-line.el.gz
(defun tab-line-tab-face-modified (tab _tabs face buffer-p _selected-p)
  "Return FACE for TAB according to whether its buffer is modified.
When TAB is a modified, file-backed buffer, make FACE inherit
from `tab-line-tab-modified'.  For use in
`tab-line-tab-face-functions'."
  (let ((buffer (if buffer-p tab (cdr (assq 'buffer tab)))))
    (when (and buffer (buffer-file-name buffer) (buffer-modified-p buffer))
      (setf face `(:inherit (tab-line-tab-modified ,face)))))
  face)