From 5dbd225734d2d112b94f3509877b9c2c72fdd13d Mon Sep 17 00:00:00 2001 From: Geoff Voelker Date: Tue, 10 Nov 1998 21:06:50 +0000 Subject: [PATCH] (set-default-process-coding-system): Use function on before-init-hook to set default-process-coding-system based on enable-multibyte-characters. --- lisp/dos-w32.el | 12 ++++++++---- 1 file 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) -- 2.39.2