1883 |
(while list |
(while list |
1884 |
(with-current-buffer (car list) |
(with-current-buffer (car list) |
1885 |
(set-case-table (standard-case-table))) |
(set-case-table (standard-case-table))) |
1886 |
(setq list (cdr list))))))) |
(setq list (cdr list)))))) |
1887 |
;; Always call this so that the display table is correctly set up for |
(set-display-table-and-terminal-coding-system language-name)) |
|
;; unibyte buffers. |
|
|
(set-display-table-and-terminal-coding-system language-name) |
|
1888 |
|
|
1889 |
(let ((required-features (get-language-info language-name 'features))) |
(let ((required-features (get-language-info language-name 'features))) |
1890 |
(while required-features |
(while required-features |