From d37c8e1eeb15ef3e9110288ad4bc44823af85380 Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Wed, 28 Jan 2004 23:32:55 +0000 Subject: [PATCH] Added support for the `default-printer-name' function. --- lisp/dos-w32.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/dos-w32.el b/lisp/dos-w32.el index c1c189166bb..d7b411fab3f 100644 --- a/lisp/dos-w32.el +++ b/lisp/dos-w32.el @@ -378,7 +378,8 @@ indicates a specific program should be invoked." (printer (or (and (boundp 'dos-printer) (stringp (symbol-value 'dos-printer)) (symbol-value 'dos-printer)) - printer-name))) + printer-name + (default-printer-name)))) (or (eq coding-system-for-write 'no-conversion) (setq coding-system-for-write (aref eol-type 1))) ; force conversion to DOS EOLs @@ -411,7 +412,8 @@ indicates a specific program should be invoked." (let ((printer (or (and (boundp 'dos-ps-printer) (stringp (symbol-value 'dos-ps-printer)) (symbol-value 'dos-ps-printer)) - ps-printer-name))) + ps-printer-name + (default-printer-name)))) (direct-print-region-helper printer start end lpr-prog delete-text buf display rest))) -- 2.39.2