diff options
| -rw-r--r-- | lisp/international/mule-cmds.el | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index c06f9e35c54..5352fb02f24 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el | |||
| @@ -764,14 +764,8 @@ or a string." | |||
| 764 | (read-input-method-name "Input method: " nil t))) | 764 | (read-input-method-name "Input method: " nil t))) |
| 765 | (if (and input-method (symbolp input-method)) | 765 | (if (and input-method (symbolp input-method)) |
| 766 | (setq input-method (symbol-name input-method))) | 766 | (setq input-method (symbol-name input-method))) |
| 767 | (let ((previous-input-method current-input-method)) | 767 | (let ((current-input-method input-method)) |
| 768 | (unwind-protect | 768 | (read-string prompt initial-input nil nil t))) |
| 769 | (progn | ||
| 770 | (activate-input-method input-method) | ||
| 771 | (read-string prompt initial-input nil nil t)) | ||
| 772 | (if previous-input-method | ||
| 773 | (activate-input-method previous-input-method) | ||
| 774 | (inactivate-input-method))))) | ||
| 775 | 769 | ||
| 776 | ;; Variables to control behavior of input methods. All input methods | 770 | ;; Variables to control behavior of input methods. All input methods |
| 777 | ;; should react to these variables. | 771 | ;; should react to these variables. |