aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/international/mule-cmds.el4
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.
318DEFAULT is the default choice of language. 318DEFAULT is the default choice of language.
319It returns a string as language name." 319This 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.")
631This sets the coding system priority and the default input method 631This sets the coding system priority and the default input method
632and sometimes other things." 632and 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)))