# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1120717213 0
# Node ID 8ee5c917c0690d3c3ef775e27a6ed6a65616b4e4
# Parent  4161411b91d0b991ac8cfcf933b655c6bb48bca7
(set-default-coding-systems): Don't
set default-file-name-coding-system and
default-keyboard-coding-system if coding-system is
ASCII-incompatible.

diff -r 4161411b91d0 -r 8ee5c917c069 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Thu Jul 07 06:18:59 2005 +0000
+++ b/lisp/international/mule-cmds.el	Thu Jul 07 06:20:13 2005 +0000
@@ -321,9 +321,11 @@
   o coding system of a newly created buffer
   o default coding system for subprocess I/O
 This also sets the following values:
-  o default value used as `file-name-coding-system' for converting file names.
+  o default value used as `file-name-coding-system' for converting file names
+      if CODING-SYSTEM is ASCII-compatible.
   o default value for the command `set-terminal-coding-system' (not on MSDOS)
-  o default value for the command `set-keyboard-coding-system'."
+  o default value for the command `set-keyboard-coding-system'
+      if CODING-SYSTEM is ASCII-compatible.."
   (check-coding-system coding-system)
   (setq-default buffer-file-coding-system coding-system)
   (if (fboundp 'ucs-set-table-for-input)
@@ -331,14 +333,18 @@
 	(or (local-variable-p 'buffer-file-coding-system buffer)
 	    (ucs-set-table-for-input buffer))))
 
-  (if (and default-enable-multibyte-characters (not (eq system-type 'darwin)))
+  (if (and default-enable-multibyte-characters (not (eq system-type 'darwin))
+	   (or (not coding-system)
+	       (not (coding-system-get coding-system 'ascii-incompatible))))
       ;; The file-name coding system on Darwin systems is always utf-8.
       (setq default-file-name-coding-system coding-system))
   ;; If coding-system is nil, honor that on MS-DOS as well, so
   ;; that they could reset the terminal coding system.
   (unless (and (eq window-system 'pc) coding-system)
     (setq default-terminal-coding-system coding-system))
-  (setq default-keyboard-coding-system coding-system)
+  (if (or (not coding-system)
+	  (not (coding-system-get coding-system 'ascii-incompatible)))
+      (setq default-keyboard-coding-system coding-system))
   ;; Preserve eol-type from existing default-process-coding-systems.
   ;; On non-unix-like systems in particular, these may have been set
   ;; carefully by the user, or by the startup code, to deal with the