Mercurial > emacs
comparison lisp/ps-print.el @ 85987:6a97e5e13b22
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 15:23:07 +0000 |
| parents | 3b291390be13 |
| children | 915f18d633ac |
comparison
equal
deleted
inserted
replaced
| 85986:54f4d44dfa0b | 85987:6a97e5e13b22 |
|---|---|
| 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: 6.8 | 13 ;; Version: 6.8.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 "6.8" | 16 (defconst ps-print-version "6.8.1" |
| 17 "ps-print.el, v 6.8 <2007/10/26 vinicius> | 17 "ps-print.el, v 6.8.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 |
| 6842 (let* ((coding-system-for-write 'raw-text-unix) | 6842 (let* ((coding-system-for-write 'raw-text-unix) |
| 6843 (ps-printer-name (or ps-printer-name | 6843 (ps-printer-name (or ps-printer-name |
| 6844 (and (boundp 'printer-name) | 6844 (and (boundp 'printer-name) |
| 6845 (symbol-value 'printer-name)))) | 6845 (symbol-value 'printer-name)))) |
| 6846 (ps-lpr-switches | 6846 (ps-lpr-switches |
| 6847 (append ps-lpr-switches | 6847 (append (if (listp ps-lpr-switches) |
| 6848 ps-lpr-switches | |
| 6849 (list ps-lpr-switches)) | |
| 6848 (and (stringp ps-printer-name) | 6850 (and (stringp ps-printer-name) |
| 6849 (string< "" ps-printer-name) | 6851 (string< "" ps-printer-name) |
| 6850 (list (concat | 6852 (list (concat |
| 6851 (and (stringp ps-printer-name-option) | 6853 (and (stringp ps-printer-name-option) |
| 6852 ps-printer-name-option) | 6854 ps-printer-name-option) |