From b1ed864845e6ee9f7c781ee6dea6025deba81f48 Mon Sep 17 00:00:00 2001 From: Andrew Innes Date: Thu, 25 Mar 1999 22:49:36 +0000 Subject: [PATCH] (set-default-process-coding-system): Copied from dos-w32.el, but modified to use Unix line endings for process input, and to add a suitable entry to process-coding-system-alist for DOS shells. --- lisp/w32-fns.el | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el index 33db6c011d5..1e12f177f87 100644 --- a/lisp/w32-fns.el +++ b/lisp/w32-fns.el @@ -137,6 +137,26 @@ You should set this to t when using a non-system shell.\n\n")))) (add-hook 'after-init-hook 'w32-check-shell-configuration) +;;; Override setting chosen at startup. +(defun set-default-process-coding-system () + ;; Most programs on Windows will accept Unix line endings on input + ;; (and some programs ported from Unix require it) but most will + ;; produce DOS line endings on output. + (setq default-process-coding-system + (if default-enable-multibyte-characters + '(undecided-dos . undecided-unix) + '(raw-text-dos . raw-text-unix))) + (or (w32-using-nt) + ;; On Windows 9x, make cmdproxy default to using DOS line endings + ;; for input, because command.com requires this. + (setq process-coding-system-alist + `(("[cC][mM][dD][pP][rR][oO][xX][yY]" + . ,(if default-enable-multibyte-characters + '(undecided-dos . undecided-dos) + '(raw-text-dos . raw-text-dos))))))) + +(add-hook 'before-init-hook 'set-default-process-coding-system) + ;;; Basic support functions for managing Emacs' locale setting -- 2.39.2