# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 870576844 0
# Node ID 6bc1e804bbab9ba08dc714655936e6c90f1f6928
# Parent  a162ad4fde2ee18c2c8fde749a5329ade0975896
(setup-8-bit-environment): Set default value of default-input-method.

diff -r a162ad4fde2e -r 6bc1e804bbab lisp/language/european.el
--- a/lisp/language/european.el	Sun Aug 03 02:54:04 1997 +0000
+++ b/lisp/language/european.el	Sun Aug 03 02:54:04 1997 +0000
@@ -57,7 +57,9 @@
 	(setq nonascii-insert-offset nonascii-offset)))
 
   (if input-method
-      (setq default-input-method input-method))
+      (progn
+	(setq default-input-method input-method)
+	(setq-default default-input-method input-method)))
 
   ;; If this is a Latin-N character set, set up syntax for it in
   ;; single-byte mode.