Mercurial > emacs
changeset 53355:fea694690fc7
(reset-language-environment): Call
set-overriding-fontspec-internal with nil.
(set-language-environment): Call set-overriding-fontspec-internal
if the language environment specify `overriding-fontspec'.
(language-info-alist): Doc added.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 29 Dec 2003 07:10:09 +0000 |
| parents | 605475ba45e3 |
| children | 8e5d406a10a5 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 15 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Mon Dec 29 06:54:55 2003 +0000 +++ b/lisp/international/mule-cmds.el Mon Dec 29 07:10:09 2003 +0000 @@ -1006,6 +1006,12 @@ environment. features value is a list of features requested in this language environment. + ctext-non-standard-encodings + value is a list of non-standard encoding + names used in extended segments of CTEXT. + See the variable + `ctext-non-standard-encodings' for more + detail. The following keys take effect only when multibyte characters are globally disabled, i.e. the value of `default-enable-multibyte-characters' @@ -1685,7 +1691,9 @@ ;; (set-keyboard-coding-system-internal nil) (setq nonascii-translation-table nil - nonascii-insert-offset 0)) + nonascii-insert-offset 0) + + (set-overriding-fontspec-internal nil)) (reset-language-environment) @@ -1791,6 +1799,12 @@ (while required-features (require (car required-features)) (setq required-features (cdr required-features)))) + + (let ((overriding-fontspec (get-language-info language-name + 'overriding-fontspec))) + (if overriding-fontspec + (set-overriding-fontspec-internal overriding-fontspec))) + (let ((func (get-language-info language-name 'setup-function))) (if (functionp func) (funcall func)))