diff options
Diffstat (limited to 'lisp/ps-print.el')
| -rw-r--r-- | lisp/ps-print.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 7c408573797..f66416de667 100644 --- 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: |