mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(read-input-method-name): Specify the input history properly.

Browse Source 
(select-input-method): Improve prompt.
This commit is contained in:
Richard M. Stallman 1997-09-04 05:54:38 +00:00
parent f44d27ceec
commit 87505a984f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/international/mule-cmds.el
View File

@ -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))