diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-07-10 06:46:42 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-07-10 06:46:42 +0000 |
| commit | 88d559ecd238df8081f261602128366aa0b0b223 (patch) | |
| tree | f8779829f04a7e1eb925faa597c8793903fb8da3 /lisp | |
| parent | 0ef161c40a4ffd0d81d2921129403bea8f8fcc2a (diff) | |
| download | emacs-88d559ecd238df8081f261602128366aa0b0b223.tar.gz | |
(read-multilingual-string): Adjusted
for the previous change of variables related to input methods.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/mule-cmds.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 2b6b968954c..3291f49e72d 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -495,11 +495,14 @@ If optional second arg INITIAL-INPUT is non-nil, insert it in the minibuffer 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 |