mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(ps-do-despool): Bind ps-printer-name to printer-name if the former is

Browse Source 
nil.
This commit is contained in:
Andrew Innes 1998-07-13 19:58:49 +00:00
parent 070d1949d1
commit 200127fd0d
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/ps-print.el
View File

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