Mercurial > emacs
comparison lisp/international/mule-cmds.el @ 21229:38b621cd9169
(set-language-environment): Doc fix.
(current-language-environment): Use defcustom.
(default-input-method): Specify :type.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 20 Mar 1998 06:29:54 +0000 |
| parents | b6530c2add6a |
| children | bc409dfad8e7 |
comparison
equal
deleted
inserted
replaced
| 21228:31a2889105f0 | 21229:38b621cd9169 |
|---|---|
| 523 "Title string of the current input method shown in mode line.") | 523 "Title string of the current input method shown in mode line.") |
| 524 (make-variable-buffer-local 'current-input-method-title) | 524 (make-variable-buffer-local 'current-input-method-title) |
| 525 (put 'current-input-method-title 'permanent-local t) | 525 (put 'current-input-method-title 'permanent-local t) |
| 526 | 526 |
| 527 (defcustom default-input-method nil | 527 (defcustom default-input-method nil |
| 528 "*Default input method for multilingual text. | 528 "*Default input method for multilingual text (a string). |
| 529 This is the input method activated automatically by the command | 529 This is the input method activated automatically by the command |
| 530 `toggle-input-method' (\\[toggle-input-method])." | 530 `toggle-input-method' (\\[toggle-input-method])." |
| 531 :group 'mule) | 531 :group 'mule |
| 532 :type 'string) | |
| 532 | 533 |
| 533 (defvar input-method-history nil | 534 (defvar input-method-history nil |
| 534 "History list for some commands that read input methods.") | 535 "History list for some commands that read input methods.") |
| 535 (make-variable-buffer-local 'input-method-history) | 536 (make-variable-buffer-local 'input-method-history) |
| 536 (put 'input-method-history 'permanent-local t) | 537 (put 'input-method-history 'permanent-local t) |
| 805 (setq last-command-event 'English)) | 806 (setq last-command-event 'English)) |
| 806 (setq language-name (symbol-name last-command-event))) | 807 (setq language-name (symbol-name last-command-event))) |
| 807 (set-language-environment language-name) | 808 (set-language-environment language-name) |
| 808 (error "Bogus calling sequence")))) | 809 (error "Bogus calling sequence")))) |
| 809 | 810 |
| 810 (defvar current-language-environment "English" | 811 (defcustom current-language-environment "English" |
| 811 "The last language environment specified with `set-language-environment'.") | 812 "The last language environment specified with `set-language-environment'." |
| 813 :set 'set-language-environment | |
| 814 :initialize 'custom-initialize-default | |
| 815 :group 'mule | |
| 816 :type 'string) | |
| 812 | 817 |
| 813 (defun set-language-environment (language-name) | 818 (defun set-language-environment (language-name) |
| 814 "Set up multi-lingual environment for using LANGUAGE-NAME. | 819 "Set up multi-lingual environment for using LANGUAGE-NAME. |
| 815 This sets the coding system priority and the default input method | 820 This sets the coding system priority and the default input method |
| 816 and sometimes other things." | 821 and sometimes other things. LANGUAGE-NAME should be a string |
| 822 which is the name of a language environment. For example, \"Latin-1\" | |
| 823 specifies the character set for the major languages of Western Europe." | |
| 817 (interactive (list (read-language-name | 824 (interactive (list (read-language-name |
| 818 'setup-function | 825 'setup-function |
| 819 "Set language environment (default, English): "))) | 826 "Set language environment (default, English): "))) |
| 820 (if language-name | 827 (if language-name |
| 821 (if (symbolp language-name) | 828 (if (symbolp language-name) |