From f201cf3a8143b0b34b07769fc7d73dd14761b87b Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 12 Nov 2013 00:16:50 -0800 Subject: [PATCH] * ps-print.el (ps-face-attribute-list): Handle anonymous faces Fixes: debbugs:15827 --- lisp/ChangeLog | 5 +++++ lisp/ps-print.el | 4 ++++ 2 files changed, 9 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 951fcd88abf..5deb1c96dc3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-11-12 Glenn Morris + + * ps-print.el (ps-face-attribute-list): + Handle anonymous faces. (Bug#15827) + 2013-11-12 Martin Rudalics * window.el (display-buffer-other-frame): Fix doc-string. diff --git a/lisp/ps-print.el b/lisp/ps-print.el index cd2b70db658..7c28ecc78e0 100644 --- 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) -- 2.39.2