# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1128586274 0
# Node ID 74b084c8ec131f522e45d1d5d63a7a3f8f210935
# Parent  ad6e2cab48f1c29afd5eb4f8c317fb208594d58d
(set-language-environment): Fix
setting up of case-table for unibyte mode.

diff -r ad6e2cab48f1 -r 74b084c8ec13 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Thu Oct 06 08:09:19 2005 +0000
+++ b/lisp/international/mule-cmds.el	Thu Oct 06 08:11:14 2005 +0000
@@ -1867,16 +1867,18 @@
 	    (load syntax nil t))
 	;; No information for syntax and case.  Reset to the defaults.
 	(let ((syntax-table (standard-syntax-table))
-	      (case-table (standard-case-table))
+	      (standard-table (standard-case-table))
+	      (case-table (make-char-table 'case-table))
 	      (ch (if (eq window-system 'pc) 128 160)))
 	  (while (< ch 256)
 	    (modify-syntax-entry ch " " syntax-table)
-	    (aset case-table ch ch)
 	    (setq ch (1+ ch)))
+	  (dotimes (i 128)
+	    (aset case-table i (aref standard-table i)))
 	  (set-char-table-extra-slot case-table 0 nil)
 	  (set-char-table-extra-slot case-table 1 nil)
-	  (set-char-table-extra-slot case-table 2 nil))
-	(set-standard-case-table (standard-case-table))
+	  (set-char-table-extra-slot case-table 2 nil)
+	  (set-standard-case-table case-table))
 	(let ((list (buffer-list)))
 	  (while list
 	    (with-current-buffer (car list)