From: Kenichi Handa Date: Thu, 6 Oct 2005 08:11:14 +0000 (+0000) Subject: (set-language-environment): Fix X-Git-Tag: emacs-pretest-22.0.90~6795 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=01017d922c94a5cd3efe1e5f8160bc28d9031f93;p=emacs.git (set-language-environment): Fix setting up of case-table for unibyte mode. --- 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)