diff options
| author | Andrew Innes <andrewi@gnu.org> | 1999-03-25 22:51:54 +0000 |
|---|---|---|
| committer | Andrew Innes <andrewi@gnu.org> | 1999-03-25 22:51:54 +0000 |
| commit | 224116b8e99390589b34a51785423d6623ebeb0a (patch) | |
| tree | 28e1b44a6dbadc6e8ed77606d9bd699fff54a078 /lisp/dos-fns.el | |
| parent | b1ed864845e6ee9f7c781ee6dea6025deba81f48 (diff) | |
| download | emacs-224116b8e99390589b34a51785423d6623ebeb0a.tar.gz | |
(set-default-process-coding-system): Copied from dos-w32.el.
Diffstat (limited to 'lisp/dos-fns.el')
| -rw-r--r-- | lisp/dos-fns.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/dos-fns.el b/lisp/dos-fns.el index ac67c904340..64ed19b0010 100644 --- a/lisp/dos-fns.el +++ b/lisp/dos-fns.el @@ -81,6 +81,15 @@ with a definition that really does change some file names." ;; See dos-vars.el for defcustom. (defvar msdos-shells) +;;; 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) + (defvar register-name-alist '((ax . 0) (bx . 1) (cx . 2) (dx . 3) (si . 4) (di . 5) (cflag . 6) (flags . 7) |