Make File->Print work under Cygwin X11 version of XEmacs

2006-12-05 Dr. Volker Zell <Dr.Volker.Zell(a)oracle.com&gt; * printer.el (generic-print-buffer): Make File->Print work under Cygwin X11 version of XEmacs, instead of emitting: Feature not yet implemented: "Dialog box type", print-setup (generic-print-region): Ditto. diff -urN origsrc/xemacs-21.4.19/lisp/printer.el src/xemacs-21.4.19/lisp/printer.el --- origsrc/xemacs-21.4.19/lisp/printer.el 2002-08-20 13:35:01.000000000 +0200 +++ src/xemacs-21.4.19/lisp/printer.el 2006-12-05 23:22:21.959220800 +0100 ＠＠ -261,7 +261,8 ＠＠ (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)) - (not display-print-dialog)) + (not display-print-dialog) + (not (string-equal (device-type) "mswindows"))) (generic-print-region start end buffer) (let* ((d (Printer-get-device)) (props (make-dialog-box 'print :device d ＠＠ -309,7 +310,8 ＠＠ 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 ((and (valid-specifier-tag-p 'msprinter) + (string-equal (device-type) "mswindows")) ;; 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 The same patch should probably be applied to 21.5. Ciao Volker _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches