Mercurial > emacs

comparison lisp/w32-fns.el @ 81879:8049a041fd5d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-default-process-coding-system): Use dos line ends for input to cmdproxy on all versions of Windows. Use dos line ends for input to plink.
author Jason Rumney <jasonr@gnu.org>
date Sun, 15 Jul 2007 00:59:43 +0000
parents e3694f1cb928
children 9355f9b7bbff a66921565bcb
comparison
equal deleted inserted replaced
81878:f53f800079a7 81879:8049a041fd5d
147 ;; produce DOS line endings on output. 147 ;; produce DOS line endings on output.
148 (setq default-process-coding-system 148 (setq default-process-coding-system
149 (if default-enable-multibyte-characters 149 (if default-enable-multibyte-characters
150 '(undecided-dos . undecided-unix) 150 '(undecided-dos . undecided-unix)
151 '(raw-text-dos . raw-text-unix))) 151 '(raw-text-dos . raw-text-unix)))
152 (or (w32-using-nt) 152 ;; Make cmdproxy default to using DOS line endings for input,
153 ;; On Windows 9x, make cmdproxy default to using DOS line endings 153 ;; because some Windows programs (including command.com) require it.
154 ;; for input, because command.com requires this. 154 (add-to-list 'process-coding-system-alist
155 (setq process-coding-system-alist 155 `("[cC][mM][dD][pP][rR][oO][xX][yY]"
156 `(("[cC][mM][dD][pP][rR][oO][xX][yY]" 156 . ,(if default-enable-multibyte-characters
157 . ,(if default-enable-multibyte-characters 157 '(undecided-dos . undecided-dos)
158 '(undecided-dos . undecided-dos) 158 '(raw-text-dos . raw-text-dos))))
159 '(raw-text-dos . raw-text-dos))))))) 159 ;; plink needs DOS input when entering the password.
160 (add-to-list 'process-coding-system-alist
161 `("[pP][lL][iI][nN][kK]"
162 . ,(if default-enable-multibyte-characters
163 '(undecided-dos . undecided-dos)
164 '(raw-text-dos . raw-text-dos)))))
160 165
161 (add-hook 'before-init-hook 'set-default-process-coding-system) 166 (add-hook 'before-init-hook 'set-default-process-coding-system)
162 167
163 168
164 ;;; Basic support functions for managing Emacs' locale setting 169 ;;; Basic support functions for managing Emacs' locale setting