changeset: 4459:554b9d31e7a5353a725b4f326241a895a237c815 tag: tip user: Aidan Kehoe <kehoea(a)parhasard.net&gt; 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(a)parhasard.net&gt; * 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＠parhasa +2008-05-13 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * 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(a)parhasard.net&gt; * 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 _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches