+;; Support for printing under MS-DOS, see lpr.el and ps-print.el.
+;; See dos-vars.el for defcustom.
+(defvar dos-printer)
+
+(defun dos-print-region-function (start end
+ &optional lpr-prog
+ delete-text buf display rest)
+ "MS-DOS-specific function to print the region on a printer.
+Writes the region to the device or file which is a value of
+`dos-printer' \(which see\). Ignores any arguments beyond
+START and END."
+
+ ;; DOS printers need the lines to end with CR-LF pairs, so make
+ ;; sure it always happens that way, unless the buffer is binary.
+ (let* ((coding coding-system-for-write)
+ (coding-base
+ (if (null coding) 'undecided (coding-system-base coding)))
+ (eol-type (coding-system-eol-type coding-base)))
+ (or (eq coding-system-for-write 'no-conversion)
+ (setq coding-system-for-write
+ (aref eol-type 1))) ; force conversion to DOS EOLs
+ (write-region start end dos-printer t 0)
+ ;; Make each print-out start on a new page, but don't waste
+ ;; paper if there was a form-feed at the end of this file.
+ (if (not (char-equal (char-after (1- end)) ?\C-l))
+ (write-region "\f" nil dos-printer t 0))))
+
+;; Set this to nil if you have a port of the `lpr' program and
+;; you want to use it for printing. If the default setting is
+;; in effect, `lpr-command' and its switches are ignored when
+;; printing with `lpr-xxx' and `print-xxx'.
+(setq print-region-function 'dos-print-region-function)
+
+;; Set this to nil if you have a port of the `pr' program
+;; (e.g., from GNU Textutils), or if you have an `lpr'
+;; program (see above) that can print page headers.
+;; If `lpr-headers-switches' is non-nil (the default) and
+;; `print-region-function' is set to `dos-print-region-function',
+;; then requests to print page headers will be silently
+;; ignored, and `print-buffer' and `print-region' produce
+;; the same output as `lpr-buffer' and `lpr-region', accordingly.
+(setq lpr-headers-switches "(page headers are not supported)")
+
+;; See dos-vars.el for defcustom.
+(defvar dos-ps-printer)
+
+(setq ps-lpr-command "gs")
+
+(setq ps-lpr-switches '("-q" "-dNOPAUSE" "-sDEVICE=epson" "-r240x60"
+ "-sOutputFile=LPT1" "-"))
+
+;; Backward compatibility for obsolescent functions which
+;; set screen size.
+
+(defun mode25 ()
+ "Changes the number of screen rows to 25."
+ (interactive)
+ (set-frame-size (selected-frame) 80 25))
+
+(defun mode4350 ()
+ "Changes the number of rows to 43 or 50.
+Emacs always tries to set the screen height to 50 rows first.
+If this fails, it will try to set it to 43 rows, on the assumption
+that your video hardware might not support 50-line mode."
+ (interactive)
+ (set-frame-size (selected-frame) 80 50)
+ (if (eq (frame-height (selected-frame)) 50)
+ nil ; the original built-in function returned nil
+ (set-frame-size (selected-frame) 80 43)))
+
+(provide 'dos-fns)
+
+; dos-fns.el ends here