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