diff options
| author | Andrew Innes <andrewi@gnu.org> | 1998-07-13 19:58:49 +0000 |
|---|---|---|
| committer | Andrew Innes <andrewi@gnu.org> | 1998-07-13 19:58:49 +0000 |
| commit | 200127fd0dbc55febfc53339dd440f64c5cd8b86 (patch) | |
| tree | 4dba1a926824fdc5a3a688561791319c85fda849 | |
| parent | 070d1949d1c386a25d07ac8ac370de9c87698607 (diff) | |
| download | emacs-200127fd0dbc55febfc53339dd440f64c5cd8b86.tar.gz | |
(ps-do-despool): Bind ps-printer-name to printer-name if the former is
nil.
| -rw-r--r-- | lisp/ps-print.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index d5478d7da5b..6f18fd6857e 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -4005,12 +4005,13 @@ If FACE is not a valid face name, it is used default face." (and ps-razzle-dazzle (message "Printing...")) (save-excursion (set-buffer ps-spool-buffer) - (let ((coding-system-for-write 'raw-text-unix) - (ps-lpr-switches - (append - (and (stringp ps-printer-name) - (list (concat "-P" ps-printer-name))) - ps-lpr-switches))) + (let* ((coding-system-for-write 'raw-text-unix) + (ps-printer-name (or ps-printer-name printer-name)) + (ps-lpr-switches + (append + (and (stringp ps-printer-name) + (list (concat "-P" ps-printer-name))) + ps-lpr-switches))) (if (and (memq system-type '(ms-dos windows-nt)) (or (and (boundp 'dos-ps-printer) (stringp (symbol-value 'dos-ps-printer))) |