Mercurial > emacs

changeset 23682:8d1cbb6f0fb9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-default-process-coding-system): Use function on before-init-hook to set default-process-coding-system based on enable-multibyte-characters.
author Geoff Voelker <voelker@cs.washington.edu>
date Tue, 10 Nov 1998 21:06:50 +0000
parents af0276da2059
children cb300ad44b55
files lisp/dos-w32.el
diffstat 1 files changed, 8 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/dos-w32.el	Tue Nov 10 20:54:46 1998 +0000
+++ b/lisp/dos-w32.el	Tue Nov 10 21:06:50 1998 +0000
@@ -247,10 +247,14 @@
 	(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)