From 87505a984f3a0da0209f3f93e09d7f97a8b9810b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 4 Sep 1997 05:54:38 +0000 Subject: [PATCH] (read-input-method-name): Specify the input history properly. (select-input-method): Improve prompt. --- lisp/international/mule-cmds.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 0bfb3830ca3..d338ae0835b 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -448,9 +448,9 @@ The return value is a string." (let* ((completion-ignore-case t) ;; This binding is necessary because input-method-history is ;; buffer local. - (minibuffer-history input-method-history) (input-method (completing-read prompt input-method-alist - nil t nil nil default))) + nil t nil 'input-method-history + default))) (if (> (length input-method) 0) input-method (if inhibit-null @@ -498,7 +498,7 @@ and turn it on for the current buffer." (if (not enable-multibyte-characters) (error "Can't activate an input method while multibyte characters are disabled")) (list (read-input-method-name - (if default "Input method (default %s): " "Input method: ") + (if default "Select input method (default %s): " "Select input method: ") default t)))) (activate-input-method input-method) (setq default-input-method input-method))