Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
24513:2db3b19a94bb | 24514:06762ce530be |
---|---|
135 (kill-buffer buffer)) | 135 (kill-buffer buffer)) |
136 (set-buffer prev-buffer))) | 136 (set-buffer prev-buffer))) |
137 | 137 |
138 (add-hook 'after-init-hook 'w32-check-shell-configuration) | 138 (add-hook 'after-init-hook 'w32-check-shell-configuration) |
139 | 139 |
140 ;;; Override setting chosen at startup. | |
141 (defun set-default-process-coding-system () | |
142 ;; Most programs on Windows will accept Unix line endings on input | |
143 ;; (and some programs ported from Unix require it) but most will | |
144 ;; produce DOS line endings on output. | |
145 (setq default-process-coding-system | |
146 (if default-enable-multibyte-characters | |
147 '(undecided-dos . undecided-unix) | |
148 '(raw-text-dos . raw-text-unix))) | |
149 (or (w32-using-nt) | |
150 ;; On Windows 9x, make cmdproxy default to using DOS line endings | |
151 ;; for input, because command.com requires this. | |
152 (setq process-coding-system-alist | |
153 `(("[cC][mM][dD][pP][rR][oO][xX][yY]" | |
154 . ,(if default-enable-multibyte-characters | |
155 '(undecided-dos . undecided-dos) | |
156 '(raw-text-dos . raw-text-dos))))))) | |
157 | |
158 (add-hook 'before-init-hook 'set-default-process-coding-system) | |
159 | |
140 | 160 |
141 ;;; Basic support functions for managing Emacs' locale setting | 161 ;;; Basic support functions for managing Emacs' locale setting |
142 | 162 |
143 (defvar w32-valid-locales nil | 163 (defvar w32-valid-locales nil |
144 "List of locale ids known to be supported.") | 164 "List of locale ids known to be supported.") |