# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1075332775 0
# Node ID 19655fe347ececcbb9ce1228472ab6baf8616e48
# Parent  5456cd83c404722837990383a5bf905eacc4219b
Added support for the `default-printer-name' function.

diff -r 5456cd83c404 -r 19655fe347ec lisp/dos-w32.el
--- a/lisp/dos-w32.el	Wed Jan 28 23:31:03 2004 +0000
+++ b/lisp/dos-w32.el	Wed Jan 28 23:32:55 2004 +0000
@@ -378,7 +378,8 @@
 	 (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 @@
   (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)))