Mercurial > emacs
diff lisp/w32-fns.el @ 24514:06762ce530be
(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.
| author | Andrew Innes <andrewi@gnu.org> |
|---|---|
| date | Thu, 25 Mar 1999 22:49:36 +0000 |
| parents | 756058742361 |
| children | a969304198eb |
line wrap: on
line diff
--- a/lisp/w32-fns.el Wed Mar 24 14:25:58 1999 +0000 +++ b/lisp/w32-fns.el Thu Mar 25 22:49:36 1999 +0000 @@ -137,6 +137,26 @@ (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