From 224116b8e99390589b34a51785423d6623ebeb0a Mon Sep 17 00:00:00 2001 From: Andrew Innes Date: Thu, 25 Mar 1999 22:51:54 +0000 Subject: [PATCH] (set-default-process-coding-system): Copied from dos-w32.el. --- lisp/dos-fns.el | 9 +++++++++ lisp/dos-w32.el | 9 --------- 2 files changed, 9 insertions(+), 9 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) diff --git a/lisp/dos-w32.el b/lisp/dos-w32.el index 2d5377ef747..79250ee302b 100644 --- a/lisp/dos-w32.el +++ b/lisp/dos-w32.el @@ -248,15 +248,6 @@ filesystem mounted on drive Z:, FILESYSTEM could be \"Z:\"." (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. -- 2.39.2