From: Michael Albinus <michael.albinus@gmx.de>
Date: Thu, 19 Apr 2012 08:37:10 +0000 (+0200)
Subject: * net/tramp.el (tramp-action-password): Let-bind enable-recursive-minibuffers to t.
X-Git-Tag: emacs-24.2.90~471^2~344
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8c8fc5df12e86cecc16848fff19a251438a25982;p=emacs.git

* net/tramp.el (tramp-action-password): Let-bind enable-recursive-minibuffers to t.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index edfe575a576..434e1a7f85f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-04-19  Michael Albinus  <michael.albinus@gmx.de>
+
+	* net/tramp.el (tramp-action-password): Let-bind
+	`enable-recursive-minibuffers' to t.
+
 2012-04-18  Sam Steingold  <sds@gnu.org>
 
 	* progmodes/gud.el (gud-key-prefix): Use :type 'key-sequence
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 5b4ea1e6f17..95848ac34ea 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -3133,11 +3133,12 @@ beginning of local filename are not substituted."
 (defun tramp-action-password (proc vec)
   "Query the user for a password."
   (with-current-buffer (process-buffer proc)
-    (tramp-check-for-regexp proc tramp-password-prompt-regexp)
-    (tramp-message vec 3 "Sending %s" (match-string 1))
-    (tramp-enter-password proc)
-    ;; Hide password prompt.
-    (narrow-to-region (point-max) (point-max))))
+    (let ((enable-recursive-minibuffers t))
+      (tramp-check-for-regexp proc tramp-password-prompt-regexp)
+      (tramp-message vec 3 "Sending %s" (match-string 1))
+      (tramp-enter-password proc)
+      ;; Hide password prompt.
+      (narrow-to-region (point-max) (point-max)))))
 
 (defun tramp-action-succeed (proc vec)
   "Signal success in finding shell prompt."