[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el

[Kenichi Handa]

Index: emacs/lisp/international/mule-cmds.el
diff -c emacs/lisp/international/mule-cmds.el:1.283 
emacs/lisp/international/mule-cmds.el:1.284
*** emacs/lisp/international/mule-cmds.el:1.283 Sat Sep 24 13:43:59 2005
--- emacs/lisp/international/mule-cmds.el       Thu Oct  6 08:11:14 2005
***************
*** 1867,1882 ****
            (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))
              (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)))
          (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))
        (let ((list (buffer-list)))
          (while list
            (with-current-buffer (car list)
--- 1867,1884 ----
            (load syntax nil t))
        ;; No information for syntax and case.  Reset to the defaults.
        (let ((syntax-table (standard-syntax-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)
            (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 case-table))
        (let ((list (buffer-list)))
          (while list
            (with-current-buffer (car list)