Mercurial > emacs
changeset 18712:7366898bee9e
(read-multilingual-string): Adjusted
for the previous change of variables related to input methods.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 10 Jul 1997 06:46:42 +0000 |
| parents | 46c1ad5f61e0 |
| children | bca5a6b78f91 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 8 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Thu Jul 10 06:44:55 1997 +0000 +++ b/lisp/international/mule-cmds.el Thu Jul 10 06:46:42 1997 +0000 @@ -495,11 +495,14 @@ initially. Optional 3rd argument INPUT-METHOD specifies the input method to be activated instead of the one selected last time." - (let ((default-input-method - (or input-method - default-input-method - (read-input-method-name "Input method: " nil t)))) - (let ((minibuffer-setup-hook '(toggle-input-method))) + (setq input-method + (or input-method + default-input-method + (read-input-method-name "Input method: " nil t))) + (save-excursion + (set-buffer (window-buffer (minibuffer-window))) + (let ((default-input-method input-method) + (minibuffer-setup-hook '(toggle-input-method))) (read-string prompt initial-input)))) ;; Variables to control behavior of input methods. All input methods