Mercurial > emacs
comparison lisp/ps-print.el @ 91084:a4347a111894
If ps-lpr-switches is not a list, force it to be one.
author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
---|---|
date | Fri, 09 Nov 2007 14:52:32 +0000 |
parents | 74fda5245f7e |
children | 880960b70474 |
comparison
equal
deleted
inserted
replaced
91083:ff87badce376 | 91084:a4347a111894 |
---|---|
8 ;; Vinicius Jose Latorre <viniciusjl@ig.com.br> | 8 ;; Vinicius Jose Latorre <viniciusjl@ig.com.br> |
9 ;; Kenichi Handa <handa@m17n.org> (multi-byte characters) | 9 ;; Kenichi Handa <handa@m17n.org> (multi-byte characters) |
10 ;; Maintainer: Kenichi Handa <handa@m17n.org> (multi-byte characters) | 10 ;; Maintainer: Kenichi Handa <handa@m17n.org> (multi-byte characters) |
11 ;; Vinicius Jose Latorre <viniciusjl@ig.com.br> | 11 ;; Vinicius Jose Latorre <viniciusjl@ig.com.br> |
12 ;; Keywords: wp, print, PostScript | 12 ;; Keywords: wp, print, PostScript |
13 ;; Version: 7.3 | 13 ;; Version: 7.3.1 |
14 ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre | 14 ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre |
15 | 15 |
16 (defconst ps-print-version "7.3" | 16 (defconst ps-print-version "7.3.1" |
17 "ps-print.el, v 7.3 <2007/10/26 vinicius> | 17 "ps-print.el, v 7.3.1 <2007/11/09 vinicius> |
18 | 18 |
19 Vinicius's last change version -- this file may have been edited as part of | 19 Vinicius's last change version -- this file may have been edited as part of |
20 Emacs without changes to the version number. When reporting bugs, please also | 20 Emacs without changes to the version number. When reporting bugs, please also |
21 report the version of Emacs, if any, that ps-print was distributed with. | 21 report the version of Emacs, if any, that ps-print was distributed with. |
22 | 22 |
6508 (let* ((coding-system-for-write 'raw-text-unix) | 6508 (let* ((coding-system-for-write 'raw-text-unix) |
6509 (ps-printer-name (or ps-printer-name | 6509 (ps-printer-name (or ps-printer-name |
6510 (and (boundp 'printer-name) | 6510 (and (boundp 'printer-name) |
6511 (symbol-value 'printer-name)))) | 6511 (symbol-value 'printer-name)))) |
6512 (ps-lpr-switches | 6512 (ps-lpr-switches |
6513 (append ps-lpr-switches | 6513 (append (if (listp ps-lpr-switches) |
6514 ps-lpr-switches | |
6515 (list ps-lpr-switches)) | |
6514 (and (stringp ps-printer-name) | 6516 (and (stringp ps-printer-name) |
6515 (string< "" ps-printer-name) | 6517 (string< "" ps-printer-name) |
6516 (list (concat | 6518 (list (concat |
6517 (and (stringp ps-printer-name-option) | 6519 (and (stringp ps-printer-name-option) |
6518 ps-printer-name-option) | 6520 ps-printer-name-option) |