diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-09-07 03:39:44 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-09-07 03:39:44 +0000 |
commit | 5af6edaf8352dff0b01870c61798d568bd54806d (patch) | |
tree | 21abeeba74d85269ada95a07725af9d768cae98c | |
parent | 256a88f2a2ffeeadea84377e548b0e923dcf1821 (diff) | |
download | emacs-5af6edaf8352dff0b01870c61798d568bd54806d.tar.gz |
(read-language-name): Doc fix.
(set-language-environment): Improve prompt.
-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 (defun read-language-name (key prompt &optional default) "Read language name which has information for KEY, prompting with PROMPT. DEFAULT is the default choice of language. -It returns a string as language name." +This returns a language name as a string." (let* ((completion-ignore-case t) (name (completing-read prompt language-info-alist @@ -631,7 +631,7 @@ But, if this flag is non-nil, the input method is never back on.") This sets the coding system priority and the default input method and sometimes other things." (interactive (list (read-language-name 'setup-function - "Language (null for default): "))) + "Set language environment: "))) (if language-name (if (symbolp language-name) (setq language-name (symbol-name language-name))) |