(set-language-environment): Fix

setting up of case-table for unibyte mode.

1 files changed, 6 insertions, 4 deletions

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index f1c7a65a5a5..c84a66bcd63 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1867,16 +1867,18 @@ specifies the character set for the major languages of Western Europe."
             (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)