Function: xterm--maybe-update-default-face

xterm--maybe-update-default-face is a byte-compiled function defined in xterm.el.gz.

Signature

(xterm--maybe-update-default-face FRAME)

Source Code

;; Defined in /usr/src/emacs/lisp/term/xterm.el.gz
(defun xterm--maybe-update-default-face (frame)
  (let ((bg-color (terminal-parameter (frame-terminal frame)
                                      'xterm--background-color))
        (fg-color (terminal-parameter (frame-terminal frame)
                                      'xterm--foreground-color))
        (default-bg (face-attribute 'default :background frame))
        (default-fg (face-attribute 'default :foreground frame)))
    (when (and bg-color (string-equal default-bg "unspecified-bg"))
      (let ((r (car bg-color))
            (g (cadr bg-color))
            (b (caddr bg-color)))
        (set-face-background 'default (format "#%04x%04x%04x" r g b) frame)))
    (when (and fg-color (string-equal default-fg "unspecified-fg"))
      (let ((r (car fg-color))
            (g (cadr fg-color))
            (b (caddr fg-color)))
        (set-face-foreground 'default (format "#%04x%04x%04x" r g b) frame)))))