X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fprinter.el;h=9b996f964c051aada0710a67ab550d3dc1af1980;hp=9f0b6d747658e79d55b167035f39b3ef4aab8579;hb=63a686a3d18465a8c96b8cc4a273c295f8a5a379;hpb=89559a53b9683058a6cea41ce3f8f6c9bd067238

diff --git a/lisp/printer.el b/lisp/printer.el
index 9f0b6d7..9b996f9 100644
--- a/lisp/printer.el
+++ b/lisp/printer.el
@@ -260,7 +260,7 @@ If BUFFER is nil or omitted, the current buffer is used."
       (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))
@@ -309,7 +309,7 @@ Recognized properties are the same as those in `make-dialog-box':
   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