mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +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.
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