From cc0717799a2afa65441ac7606621f5b65d34328a Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Wed, 2 Apr 2008 17:52:26 +0000 Subject: [PATCH] (ps-generate-postscript-with-faces): If the face specified by the overlay's `face' property is a string, assume it's a string name and intern it to get the face symbol. --- lisp/ChangeLog | 6 ++++++ lisp/ps-print.el | 6 +++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index aae590defca..1d87af4666f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-04-02 Eli Zaretskii + + * ps-print.el (ps-generate-postscript-with-faces): If the face + specified by the overlay's `face' property is a string, assume + it's a string name and intern it to get the face symbol. + 2008-04-01 Chong Yidong * find-dired.el (find-dired-filter): Fix last patch to handle diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 4ee58a8ce29..73fa3bb2a25 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -6676,7 +6676,11 @@ If FACE is not a valid face name, use default face." ((ps-e-overlay-get overlay 'face)) (t face) )))) - (setq overlays (cdr overlays)))) + (setq overlays (cdr overlays))) + ;; Ediff refinement overlays specify faces by name, as a + ;; string, not as symbols. + (if (stringp face) + (setq face (intern face)))) ;; Plot up to this record. (and before-string (ps-plot-string before-string)) -- 2.39.2