Function: indent-bars--background-color

indent-bars--background-color is a natively compiled function defined in indent-bars.el.

Signature

(indent-bars--background-color &optional NO-REMAP)

Documentation

Return the background color in the current buffer/frame.

Unless NO-REMAP is non-nil, if the background comes from remapping, return (REMAP . COLOR). Otherwise ignore remapping.

Source Code

;; Defined in /nix/store/zkcdcnmcj3605fj09x584bf58d85brax-emacs-packages-deps/share/emacs/site-lisp/elpa/indent-bars-1.0.1/indent-bars.el
(defun indent-bars--background-color(&optional no-remap)
  "Return the background color in the current buffer/frame.
Unless NO-REMAP is non-nil, if the background comes from remapping,
return (REMAP . COLOR).  Otherwise ignore remapping."
  (let ((remap-face (and (not no-remap)
			 (ensure-list
			  (car (alist-get 'default face-remapping-alist)))))
	(fb (frame-parameter nil 'background-color)) bg)
    (cond
     ((and remap-face
	   (let ((temp-face (make-symbol "temp-face")))
	     ;; we must handle anonymous face remappings, like (:background "yellow")
	     ;; Note that only the first (list or face) on the remap is handled
	     (face-spec-set temp-face `((t ,remap-face)) 'face-defface-spec)
	     (setq bg (face-background temp-face nil t))))
      (cons 'remap bg))
     ((not fb) "white")
     ((string= fb "unspecified-bg") indent-bars-unspecified-bg-color)
     (t fb))))