mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(set-language-environment): Fix

Browse Source 
setting up of case-table for unibyte mode.
This commit is contained in:
Kenichi Handa 2005-10-06 08:11:14 +00:00
parent c8d21d09f1
commit 01017d922c
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/international/mule-cmds.el
View File

@ -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)