[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r115073: * ps-print.el (ps-face-attribute-list): Han
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] trunk r115073: * ps-print.el (ps-face-attribute-list): Handle anonymous faces |
Date: |
Tue, 12 Nov 2013 08:17:05 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 115073
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/15827
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2013-11-12 00:16:50 -0800
message:
* ps-print.el (ps-face-attribute-list): Handle anonymous faces
modified:
lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432
lisp/ps-print.el psprint.el-20091113204419-o5vbwnq5f7feedwu-767
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-11-12 07:25:14 +0000
+++ b/lisp/ChangeLog 2013-11-12 08:16:50 +0000
@@ -1,3 +1,8 @@
+2013-11-12 Glenn Morris <address@hidden>
+
+ * ps-print.el (ps-face-attribute-list):
+ Handle anonymous faces. (Bug#15827)
+
2013-11-12 Martin Rudalics <address@hidden>
* window.el (display-buffer-other-frame): Fix doc-string.
=== modified file 'lisp/ps-print.el'
--- a/lisp/ps-print.el 2013-10-30 16:29:36 +0000
+++ b/lisp/ps-print.el 2013-11-12 08:16:50 +0000
@@ -6293,6 +6293,10 @@
;; 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r115073: * ps-print.el (ps-face-attribute-list): Handle anonymous faces,
Glenn Morris <=