Mercurial > emacs
comparison lisp/international/mule-cmds.el @ 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 | b18fd10266de |
| children | ff43a451f269 |
comparison
equal
deleted
inserted
replaced
| 53354:605475ba45e3 | 53355:fea694690fc7 |
|---|---|
| 1004 which `nonascii-insert-offset' is calculated. | 1004 which `nonascii-insert-offset' is calculated. |
| 1005 input-method value is a default input method for this language | 1005 input-method value is a default input method for this language |
| 1006 environment. | 1006 environment. |
| 1007 features value is a list of features requested in this | 1007 features value is a list of features requested in this |
| 1008 language environment. | 1008 language environment. |
| 1009 ctext-non-standard-encodings | |
| 1010 value is a list of non-standard encoding | |
| 1011 names used in extended segments of CTEXT. | |
| 1012 See the variable | |
| 1013 `ctext-non-standard-encodings' for more | |
| 1014 detail. | |
| 1009 | 1015 |
| 1010 The following keys take effect only when multibyte characters are | 1016 The following keys take effect only when multibyte characters are |
| 1011 globally disabled, i.e. the value of `default-enable-multibyte-characters' | 1017 globally disabled, i.e. the value of `default-enable-multibyte-characters' |
| 1012 is nil. | 1018 is nil. |
| 1013 | 1019 |
| 1683 ;; that it supported a minute ago. | 1689 ;; that it supported a minute ago. |
| 1684 ;; (set-terminal-coding-system-internal nil) | 1690 ;; (set-terminal-coding-system-internal nil) |
| 1685 ;; (set-keyboard-coding-system-internal nil) | 1691 ;; (set-keyboard-coding-system-internal nil) |
| 1686 | 1692 |
| 1687 (setq nonascii-translation-table nil | 1693 (setq nonascii-translation-table nil |
| 1688 nonascii-insert-offset 0)) | 1694 nonascii-insert-offset 0) |
| 1695 | |
| 1696 (set-overriding-fontspec-internal nil)) | |
| 1689 | 1697 |
| 1690 (reset-language-environment) | 1698 (reset-language-environment) |
| 1691 | 1699 |
| 1692 (defun set-display-table-and-terminal-coding-system (language-name) | 1700 (defun set-display-table-and-terminal-coding-system (language-name) |
| 1693 "Set up the display table and terminal coding system for LANGUAGE-NAME." | 1701 "Set up the display table and terminal coding system for LANGUAGE-NAME." |
| 1789 | 1797 |
| 1790 (let ((required-features (get-language-info language-name 'features))) | 1798 (let ((required-features (get-language-info language-name 'features))) |
| 1791 (while required-features | 1799 (while required-features |
| 1792 (require (car required-features)) | 1800 (require (car required-features)) |
| 1793 (setq required-features (cdr required-features)))) | 1801 (setq required-features (cdr required-features)))) |
| 1802 | |
| 1803 (let ((overriding-fontspec (get-language-info language-name | |
| 1804 'overriding-fontspec))) | |
| 1805 (if overriding-fontspec | |
| 1806 (set-overriding-fontspec-internal overriding-fontspec))) | |
| 1807 | |
| 1794 (let ((func (get-language-info language-name 'setup-function))) | 1808 (let ((func (get-language-info language-name 'setup-function))) |
| 1795 (if (functionp func) | 1809 (if (functionp func) |
| 1796 (funcall func))) | 1810 (funcall func))) |
| 1797 (run-hooks 'set-language-environment-hook) | 1811 (run-hooks 'set-language-environment-hook) |
| 1798 (force-mode-line-update t)) | 1812 (force-mode-line-update t)) |