mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Michael Albinus 2012-04-19 10:37:10 +02:00
parent a77b0ac992
commit 8c8fc5df12
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

11
lisp/net/tramp.el
View File

@ -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."