Mercurial > emacs
changeset 24515:ef4a540c34ff
(set-default-process-coding-system): Copied from dos-w32.el.
| author | Andrew Innes <andrewi@gnu.org> |
|---|---|
| date | Thu, 25 Mar 1999 22:51:54 +0000 |
| parents | 06762ce530be |
| children | d519b387b8a9 |
| files | lisp/dos-fns.el lisp/dos-w32.el |
| diffstat | 2 files changed, 9 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dos-fns.el Thu Mar 25 22:49:36 1999 +0000 +++ b/lisp/dos-fns.el Thu Mar 25 22:51:54 1999 +0000 @@ -81,6 +81,15 @@ ;; 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)
--- a/lisp/dos-w32.el Thu Mar 25 22:49:36 1999 +0000 +++ b/lisp/dos-w32.el Thu Mar 25 22:51:54 1999 +0000 @@ -248,15 +248,6 @@ (delete (untranslated-canonical-name filesystem) untranslated-filesystem-list))) -;;; 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. ;; Function to actually send data to the printer port.