Mercurial > emacs
comparison lisp/international/mule-cmds.el @ 67025:68bf866a394c
Revert last change.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sat, 19 Nov 2005 21:08:21 +0000 |
| parents | 47e5299bbfb0 |
| children | d7b4fada70f0 |
comparison
equal
deleted
inserted
replaced
| 67024:04e363cee129 | 67025:68bf866a394c |
|---|---|
| 1881 (set-standard-case-table case-table)) | 1881 (set-standard-case-table case-table)) |
| 1882 (let ((list (buffer-list))) | 1882 (let ((list (buffer-list))) |
| 1883 (while list | 1883 (while list |
| 1884 (with-current-buffer (car list) | 1884 (with-current-buffer (car list) |
| 1885 (set-case-table (standard-case-table))) | 1885 (set-case-table (standard-case-table))) |
| 1886 (setq list (cdr list))))))) | 1886 (setq list (cdr list)))))) |
| 1887 ;; Always call this so that the display table is correctly set up for | 1887 (set-display-table-and-terminal-coding-system language-name)) |
| 1888 ;; unibyte buffers. | |
| 1889 (set-display-table-and-terminal-coding-system language-name) | |
| 1890 | 1888 |
| 1891 (let ((required-features (get-language-info language-name 'features))) | 1889 (let ((required-features (get-language-info language-name 'features))) |
| 1892 (while required-features | 1890 (while required-features |
| 1893 (require (car required-features)) | 1891 (require (car required-features)) |
| 1894 (setq required-features (cdr required-features)))) | 1892 (setq required-features (cdr required-features)))) |