Added support for the `default-printer-name' function.

1 files 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)))