;; and it seems to annoying to do for that MIPS system.
(let ((name (concat (buffer-name) " Emacs buffer"))
(title (concat (buffer-name) " Emacs buffer"))
+ ;; On MS-DOS systems, make pipes use binary mode if the
+ ;; original file is binary.
+ (binary-process-input buffer-file-type)
+ (binary-process-output buffer-file-type)
(width tab-width)
switch-string)
(save-excursion