23 lines
1.1 KiB
Diff
23 lines
1.1 KiB
Diff
diff -r 49f8ed034500 -r 78767f901c2b lisp/printer.el
|
|
--- a/lisp/printer.el Mon May 12 11:53:04 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
|
|
|