summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorVinicius Jose Latorre <viniciusjl@ig.com.br>2009-12-23 22:45:06 +0000
committerVinicius Jose Latorre <viniciusjl@ig.com.br>2009-12-23 22:45:06 +0000
commitdc1dcfa4a70f09f32e102db9a8d1528fb9312481 (patch)
tree66b3b01d580b16238774507f91258ceaaec4e20e
parentefeee2cd6fd11410a0cb48ac10037dcaf4ec4f20 (diff)
downloademacs-dc1dcfa4a70f09f32e102db9a8d1528fb9312481.tar.gz
Attribute face for faces specified as string.
-rw-r--r--lisp/ChangeLog7
-rw-r--r--lisp/ps-print.el7
2 files changed, 11 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 193aa942fe1..c5b6c6a82f0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2009-12-23 Vinicius Jose Latorre <viniciusjl@ig.com.br>
+
+ * ps-print.el (ps-face-attributes): It was not returning the
+ attribute face for faces specified as string. Reported by harven
+ <harven@free.fr>.
+ (ps-print-version): New version 7.3.5.
+
2009-12-18 Ulf Jasper <ulf.jasper@web.de>
* calendar/icalendar.el (icalendar--convert-tz-offset): Fixed
diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 386fc14b7ae..8ff2a990c38 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -11,11 +11,11 @@
;; Maintainer: Kenichi Handa <handa@m17n.org> (multi-byte characters)
;; Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; 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 @@ If FACE is not in `ps-print-face-extension-alist' or in
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)