Function: ps-face-background

ps-face-background is a byte-compiled function defined in ps-print.el.gz.

Signature

(ps-face-background FACE BACKGROUND)

Source Code

;; Defined in /usr/src/emacs/lisp/ps-print.el.gz
(defun ps-face-background (face background)
  (and (cond ((eq ps-use-face-background t))	 ; always
	     ((null ps-use-face-background) nil) ; never
	     ;; ps-user-face-background is a symbol face list
	     ((symbolp face)
	      (memq face ps-use-face-background))
	     ((listp face)
	      (or (ps-face-color-p (car face))
		  (let (ok)
		    (while face
		      (if (or (memq (car face) ps-use-face-background)
			      (ps-face-color-p (car face)))
			  (setq face nil
				ok   t)
			(setq face (cdr face))))
		    ok)))
	     (t
	      nil)
	     )
       background))