changeset 19748:06cbad2e806a

(read-input-method-name): Specify the input history properly. (select-input-method): Improve prompt.
author Richard M. Stallman <rms@gnu.org>
date Thu, 04 Sep 1997 05:54:38 +0000
parents bed06df9cbc5
children dec0b076a378
files lisp/international/mule-cmds.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el	Thu Sep 04 04:55:52 1997 +0000
+++ b/lisp/international/mule-cmds.el	Thu Sep 04 05:54:38 1997 +0000
@@ -448,9 +448,9 @@
   (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 @@
      (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))