diff options
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2007-11-11 14:18:17 +0000 |
|---|---|---|
| committer | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2007-11-11 14:18:17 +0000 |
| commit | 3bcc60cfaf19840ad12a496a60aea6f0408c366e (patch) | |
| tree | a0e01d54eadb42437e05845662f652dac9e7ef96 /lisp/ps-print.el | |
| parent | 37b11c22c17b90111f39c74b14eafbcfeab77594 (diff) | |
| download | emacs-3bcc60cfaf19840ad12a496a60aea6f0408c366e.tar.gz | |
Error if ps-lpr-switches is not a list.
Diffstat (limited to 'lisp/ps-print.el')
| -rw-r--r-- | lisp/ps-print.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index ce92e4781ef..ba8075730d5 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -6002,6 +6002,8 @@ XSTART YSTART are the relative position for the first page in a sheet.") ;; initialize page dimensions (ps-get-page-dimensions) ;; final check + (unless (listp ps-lpr-switches) + (error "`ps-lpr-switches' value should be a list.")) (and ps-color-p (equal ps-default-background ps-default-foreground) (error @@ -6843,9 +6845,7 @@ If FACE is not a valid face name, use default face." (and (boundp 'printer-name) (symbol-value 'printer-name)))) (ps-lpr-switches - (append (if (listp ps-lpr-switches) - ps-lpr-switches - (list ps-lpr-switches)) + (append ps-lpr-switches (and (stringp ps-printer-name) (string< "" ps-printer-name) (list (concat |