[Emacs-diffs] emacs/lisp ChangeLog ps-print.el

[Vinicius Jose Latorre]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Vinicius Jose Latorre <viniciusjl>      09/12/23 22:45:12

Modified files:
        lisp           : ChangeLog ps-print.el 

Log message:
        Attribute face for faces specified as string.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16915&r2=1.16916
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ps-print.el?cvsroot=emacs&r1=1.232&r2=1.233

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16915
retrieving revision 1.16916
diff -u -b -r1.16915 -r1.16916
--- ChangeLog   18 Dec 2009 19:35:14 -0000      1.16915
+++ ChangeLog   23 Dec 2009 22:45:06 -0000      1.16916
@@ -1,3 +1,10 @@
+2009-12-23  Vinicius Jose Latorre  <address@hidden>
+
+       * ps-print.el (ps-face-attributes): It was not returning the
+       attribute face for faces specified as string.  Reported by harven
+       <address@hidden>.
+       (ps-print-version): New version 7.3.5.
+
 2009-12-18  Ulf Jasper  <address@hidden>
 
        * calendar/icalendar.el (icalendar--convert-tz-offset): Fixed

Index: ps-print.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/ps-print.el,v
retrieving revision 1.232
retrieving revision 1.233
diff -u -b -r1.232 -r1.233
--- ps-print.el 14 Nov 2009 04:12:58 -0000      1.232
+++ ps-print.el 23 Dec 2009 22:45:12 -0000      1.233
@@ -11,11 +11,11 @@
 ;; Maintainer: Kenichi Handa <address@hidden> (multi-byte characters)
 ;;     Vinicius Jose Latorre <address@hidden>
 ;; Keywords: wp, print, PostScript
-;; Version: 7.3.4
+;; Version: 7.3.5
 ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
 
-(defconst ps-print-version "7.3.4"
-  "ps-print.el, v 7.3.4 <2009/01/24 vinicius>
+(defconst ps-print-version "7.3.5"
+  "ps-print.el, v 7.3.5 <2009/12/23 vinicius>
 
 Vinicius's last change version -- this file may have been edited as part of
 Emacs without changes to the version number.  When reporting bugs, please also
@@ -6249,6 +6249,7 @@
 return the attribute vector.
 
 If FACE is not a valid face name, use default face."
+  (and (stringp face) (facep face) (setq face (intern face)))
   (cond
    (ps-black-white-faces-alist
     (or (and (symbolp face)