mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

(read-multilingual-string): Adjusted

Browse Source 
for the previous change of variables related to input methods.
This commit is contained in:
Kenichi Handa 1997-07-10 06:46:42 +00:00
parent 0ef161c40a
commit 88d559ecd2
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -495,11 +495,14 @@ If optional second arg INITIAL-INPUT is non-nil, insert it in the minibuffer
initially. initially.
Optional 3rd argument INPUT-METHOD specifies the input method Optional 3rd argument INPUT-METHOD specifies the input method
to be activated instead of the one selected last time." to be activated instead of the one selected last time."
(let ((default-input-method (setq input-method
(or input-method (or input-method
default-input-method default-input-method
(read-input-method-name "Input method: " nil t)))) (read-input-method-name "Input method: " nil t)))
(let ((minibuffer-setup-hook '(toggle-input-method))) (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)))) (read-string prompt initial-input))))
;; Variables to control behavior of input methods. All input methods ;; Variables to control behavior of input methods. All input methods