Mercurial > emacs
changeset 21567:33b1f010d589
(find-binary-process-coding-system): Remove.
(default-process-coding-system): Make it be raw-text-dos if async
processes are supported, undecided-dos otherwise.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Wed, 15 Apr 1998 15:02:22 +0000 |
| parents | 0641f568d88f |
| children | e1756df464ff |
| files | lisp/dos-w32.el |
| diffstat | 1 files changed, 4 insertions(+), 18 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dos-w32.el Wed Apr 15 14:47:47 1998 +0000 +++ b/lisp/dos-w32.el Wed Apr 15 15:02:22 1998 +0000 @@ -244,24 +244,10 @@ (delete (untranslated-canonical-name filesystem) untranslated-filesystem-list))) -;; Process I/O decoding and encoding. - -(defun find-binary-process-coding-system (command) - "Choose a coding system for process I/O. -The coding system for decode is 'no-conversion' if 'binary-process-output' -is non-nil, and 'undecided-dos' otherwise. Similarly, the coding system -for encode is 'no-conversion' if 'binary-process-input' is non-nil, -and 'undecided-dos' otherwise." - (let ((decode 'undecided-dos) - (encode 'undecided-dos)) - (if binary-process-output - (setq decode 'no-conversion)) - (if binary-process-input - (setq encode 'no-conversion)) - (cons decode encode))) - -(modify-coding-system-alist 'process "" 'find-binary-process-coding-system) - +(setq-default default-process-coding-system + (if (fboundp 'start-process) + '(raw-text-dos . raw-text-dos) + '(undecided-dos . undecided-dos))) (provide 'dos-w32)