Mercurial > emacs

comparison lisp/ps-print.el @ 106629:f7885882956b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Attribute face for faces specified as string.
author Vinicius Jose Latorre <viniciusjl@ig.com.br>
date Wed, 23 Dec 2009 22:45:06 +0000
parents d258bc2a4ad1
children 1d1d5d9bd884
comparison
equal deleted inserted replaced
106628:30345c2102a5 106629:f7885882956b
9 ;; Vinicius Jose Latorre <viniciusjl@ig.com.br> 9 ;; Vinicius Jose Latorre <viniciusjl@ig.com.br>
10 ;; Kenichi Handa <handa@m17n.org> (multi-byte characters) 10 ;; Kenichi Handa <handa@m17n.org> (multi-byte characters)
11 ;; Maintainer: Kenichi Handa <handa@m17n.org> (multi-byte characters) 11 ;; Maintainer: Kenichi Handa <handa@m17n.org> (multi-byte characters)
12 ;; Vinicius Jose Latorre <viniciusjl@ig.com.br> 12 ;; Vinicius Jose Latorre <viniciusjl@ig.com.br>
13 ;; Keywords: wp, print, PostScript 13 ;; Keywords: wp, print, PostScript
14 ;; Version: 7.3.4 14 ;; Version: 7.3.5
15 ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre 15 ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
16 16
17 (defconst ps-print-version "7.3.4" 17 (defconst ps-print-version "7.3.5"
18 "ps-print.el, v 7.3.4 <2009/01/24 vinicius> 18 "ps-print.el, v 7.3.5 <2009/12/23 vinicius>
19 19
20 Vinicius's last change version -- this file may have been edited as part of 20 Vinicius's last change version -- this file may have been edited as part of
21 Emacs without changes to the version number. When reporting bugs, please also 21 Emacs without changes to the version number. When reporting bugs, please also
22 report the version of Emacs, if any, that ps-print was distributed with. 22 report the version of Emacs, if any, that ps-print was distributed with.
23 23
6247 If FACE is not in `ps-print-face-extension-alist' or in 6247 If FACE is not in `ps-print-face-extension-alist' or in
6248 `ps-print-face-alist', insert it on `ps-print-face-alist' and 6248 `ps-print-face-alist', insert it on `ps-print-face-alist' and
6249 return the attribute vector. 6249 return the attribute vector.
6250 6250
6251 If FACE is not a valid face name, use default face." 6251 If FACE is not a valid face name, use default face."
6252 (and (stringp face) (facep face) (setq face (intern face)))
6252 (cond 6253 (cond
6253 (ps-black-white-faces-alist 6254 (ps-black-white-faces-alist
6254 (or (and (symbolp face) 6255 (or (and (symbolp face)
6255 (cdr (assq face ps-black-white-faces-alist))) 6256 (cdr (assq face ps-black-white-faces-alist)))
6256 (vector 0 nil nil))) 6257 (vector 0 nil nil)))