Merge from emacs--devo--0

[gnu-emacs] / lisp / ps-print.el

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 7c408573797c744bbedd34cb7252140ba786e711..f66416de667bb85ef5f44367906b09b0d27493f7 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -1480,6 +1480,10 @@ Please send all bug fixes and enhancements to
 ;; Load XEmacs/Emacs definitions
 (eval-and-compile (require 'ps-def))
 
+(defun ps-face-background-name (face)
+  (if (featurep 'xemacs)
+      (ps-xemacs-color-name (face-background face))
+    (face-background face nil t)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; User Variables: