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) |