diff options
| author | Geoff Voelker <voelker@cs.washington.edu> | 1998-11-10 21:06:50 +0000 |
|---|---|---|
| committer | Geoff Voelker <voelker@cs.washington.edu> | 1998-11-10 21:06:50 +0000 |
| commit | 5dbd225734d2d112b94f3509877b9c2c72fdd13d (patch) | |
| tree | cf9a890c24cc6480189436e7790ecd234508068a /lisp/dos-w32.el | |
| parent | ccc2d29c56505a9a7fd38f7e582c16ee38f31b26 (diff) | |
(set-default-process-coding-system): Use function on
before-init-hook to set default-process-coding-system based on
enable-multibyte-characters.
Diffstat (limited to 'lisp/dos-w32.el')
| -rw-r--r-- | lisp/dos-w32.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/dos-w32.el b/lisp/dos-w32.el index e7d427f612d..4adeb7752b4 100644 --- a/lisp/dos-w32.el +++ b/lisp/dos-w32.el @@ -247,10 +247,14 @@ filesystem mounted on drive Z:, FILESYSTEM could be \"Z:\"." (delete (untranslated-canonical-name filesystem) untranslated-filesystem-list))) -(setq-default default-process-coding-system - (if (fboundp 'start-process) - '(raw-text-dos . raw-text-dos) - '(undecided-dos . undecided-dos))) +;;; Override setting chosen at startup. +(defun set-default-process-coding-system () + (setq default-process-coding-system + (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) ;; Support for printing under DOS/Windows, see lpr.el and ps-print.el. (defvar printer-name) |