* ps-print.el (ps-face-attribute-list): Handle anonymous faces

Fixes: debbugs:15827

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 951fcd88abf6dbc3c92af325d34d752de6789482..5deb1c96dc3a3d90bfc2726839d6ac86ddb8dfdc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-11-12  Glenn Morris  <rgm@gnu.org>
+
+       * ps-print.el (ps-face-attribute-list):
+       Handle anonymous faces.  (Bug#15827)
+
 2013-11-12  Martin Rudalics  <rudalics@gmx.at>
 
        * window.el (display-buffer-other-frame): Fix doc-string.

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index cd2b70db658d40fe10ab2c778efc64519601d396..7c28ecc78e02989ac6b2f907693cbc8e0c70635d 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -6293,6 +6293,10 @@ If FACE is not a valid face name, use default face."
    ;; only background color, not a `real' face
    ((ps-face-background-color-p (car face-or-list))
     (vector 0 nil (ps-face-extract-color face-or-list)))
+   ;; Anonymous face.
+   ((keywordp (car face-or-list))
+    (vector 0 (plist-get face-or-list :foreground)
+           (plist-get face-or-list :background)))
    ;; list of faces
    (t
     (let ((effects 0)