diff options
| -rw-r--r-- | lisp/international/mule-cmds.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index d338ae0835b..d59db76a47d 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el | |||
| @@ -316,7 +316,7 @@ ALIST is an alist of KEY and INFO. See the documentation of | |||
| 316 | (defun read-language-name (key prompt &optional default) | 316 | (defun read-language-name (key prompt &optional default) |
| 317 | "Read language name which has information for KEY, prompting with PROMPT. | 317 | "Read language name which has information for KEY, prompting with PROMPT. |
| 318 | DEFAULT is the default choice of language. | 318 | DEFAULT is the default choice of language. |
| 319 | It returns a string as language name." | 319 | This returns a language name as a string." |
| 320 | (let* ((completion-ignore-case t) | 320 | (let* ((completion-ignore-case t) |
| 321 | (name (completing-read prompt | 321 | (name (completing-read prompt |
| 322 | language-info-alist | 322 | language-info-alist |
| @@ -631,7 +631,7 @@ But, if this flag is non-nil, the input method is never back on.") | |||
| 631 | This sets the coding system priority and the default input method | 631 | This sets the coding system priority and the default input method |
| 632 | and sometimes other things." | 632 | and sometimes other things." |
| 633 | (interactive (list (read-language-name 'setup-function | 633 | (interactive (list (read-language-name 'setup-function |
| 634 | "Language (null for default): "))) | 634 | "Set language environment: "))) |
| 635 | (if language-name | 635 | (if language-name |
| 636 | (if (symbolp language-name) | 636 | (if (symbolp language-name) |
| 637 | (setq language-name (symbol-name language-name))) | 637 | (setq language-name (symbol-name language-name))) |