(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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aae590defca65ddf940d254459fe94fc2ccd6db7..1d87af4666f1dfbdb53277690f028dbcb368526a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-04-02  Eli Zaretskii  <eliz@gnu.org>
+
+       * 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  <cyd@stupidchicken.com>
 
        * find-dired.el (find-dired-filter): Fix last patch to handle

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 4ee58a8ce2976cac73ffd9d2361e9d0b6ab53236..73fa3bb2a257b53ff257280fc2d7866b06221d3c 100644 (file)
--- 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))