From: Kenichi Handa <handa@m17n.org>
Date: Mon, 19 Mar 2001 04:50:39 +0000 (+0000)
Subject: (read-input-method-name): Locally
X-Git-Tag: emacs-pretest-21.0.101~267
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c54044ff363048107be8d691954d390b95e6db2b;p=emacs.git

(read-input-method-name): Locally
bind enable-recursive-minibuffers to t.
---

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index efedd889f02..8f011b49008 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1023,6 +1023,10 @@ The return value is a string."
   (if default
       (setq prompt (format prompt default)))
   (let* ((completion-ignore-case t)
+	 ;; As it is quite normal to change input method in the
+	 ;; minibuffer, we must enable it even if
+	 ;; enable-recursive-minibuffers is currently nil.
+	 (enable-recursive-minibuffers t)
 	 ;; This binding is necessary because input-method-history is
 	 ;; buffer local.
 	 (input-method (completing-read prompt input-method-alist