emacs-diffs
[Top][All Lists]
Advanced

[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)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]