# HG changeset patch # User Aidan Kehoe # Date 1210683398 -7200 # Node ID 554b9d31e7a5353a725b4f326241a895a237c815 # Parent d9b9b5f903863b3ac33713441ea9c91e2553f144 Handle printing correctly on non-mswindows. 2008-05-13 Aidan Kehoe * 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 d9b9b5f90386 -r 554b9d31e7a5 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-13 Aidan Kehoe + + * 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 * disp-table.el (make-display-table): diff -r d9b9b5f90386 -r 554b9d31e7a5 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 @@ (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 @@ 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