diff options
author | Glenn Morris <rgm@gnu.org> | 2013-11-12 00:16:50 -0800 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2013-11-12 00:16:50 -0800 |
commit | f201cf3a8143b0b34b07769fc7d73dd14761b87b (patch) | |
tree | 11e72c4bb3490cf7e24ea20b586e40e4d4977abd /lisp/ps-print.el | |
parent | e6f759f9fd6a12e1249863150bddde58de90deec (diff) | |
download | emacs-f201cf3a8143b0b34b07769fc7d73dd14761b87b.tar.gz |
* ps-print.el (ps-face-attribute-list): Handle anonymous faces
Fixes: debbugs:15827
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 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) |