carbon2-commit: Handle printing correctly on non-mswindows.

[Aidan Kehoe]

changeset:   4485:554b9d31e7a5353a725b4f326241a895a237c815
user:        Aidan Kehoe <kehoea at parhasard.net>
date:        Tue May 13 14:56:38 2008 +0200
files:       lisp/ChangeLog lisp/printer.el
description:
Handle printing correctly on non-mswindows.

2008-05-13  Aidan Kehoe  <kehoea at parhasard.net>

	* printer.el (generic-print-region):
	(generic-print-buffer):
	Use #'valid-device-type-p instead of #'valid-specifier-tag-p to
	check if the msprinter device is available, now that msprinter is
	always available as a specifier tag.


diff -r d9b9b5f903863b3ac33713441ea9c91e2553f144 -r 554b9d31e7a5353a725b4f326241a895a237c815 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue May 13 20:16:53 2008 +0200
+++ b/lisp/ChangeLog	Tue May 13 14:56:38 2008 +0200
@@ -1,3 +1,11 @@ 2008-05-11  Aidan Kehoe  <kehoea at parhasa
+2008-05-13  Aidan Kehoe  <kehoea at parhasard.net>
+
+	* printer.el (generic-print-region): 
+	(generic-print-buffer): 
+	Use #'valid-device-type-p instead of #'valid-specifier-tag-p to
+	check if the msprinter device is available, now that msprinter is
+	always available as a specifier tag. 
+
 2008-05-11  Aidan Kehoe  <kehoea at parhasard.net>
 
 	* disp-table.el (make-display-table): 
diff -r d9b9b5f903863b3ac33713441ea9c91e2553f144 -r 554b9d31e7a5353a725b4f326241a895a237c815 lisp/printer.el
--- a/lisp/printer.el	Tue May 13 20:16:53 2008 +0200
+++ b/lisp/printer.el	Tue May 13 14:56:38 2008 +0200
@@ -263,7 +263,7 @@ If BUFFER is nil or omitted, the current
       (let* ((print-region (and (interactive-p) (region-active-p)))
 	     (start (if print-region (region-beginning) (point-min buffer)))
 	     (end (if print-region (region-end) (point-max buffer))))
-	(if (or (not (valid-specifier-tag-p 'msprinter))
+	(if (or (not (valid-device-type-p 'msprinter))
 		(not display-print-dialog))
 	    (generic-print-region start end buffer)
 	  (let* ((d (Printer-get-device))
@@ -312,7 +312,7 @@ Recognized properties are the same as th
   to-page    Last page to print, inclusive, If omitted, printing ends at
              the end.
   copies     Number of copies to print.  If omitted, one copy is printed."
-  (cond ((valid-specifier-tag-p 'msprinter)
+  (cond ((valid-device-type-p 'msprinter)
 	 ;; loop, printing one copy of document per loop.  kill and
 	 ;; re-create the frame each time so that we eject the piece
 	 ;; of paper at the end even if we're printing more than one