630 |
(defcustom tramp-default-method-alist |
(defcustom tramp-default-method-alist |
631 |
(when tramp-unified-filenames |
(when tramp-unified-filenames |
632 |
'(("\\`ftp\\." "" "ftp") |
'(("\\`ftp\\." "" "ftp") |
633 |
("" "\\`\\(anonymous\\|ftp\\)\\'" "ftp"))) |
("" "\\`\\(anonymous\\|ftp\\)\\'" "ftp") |
634 |
|
("\\`localhost\\'" "\\`root\\'" "su"))) |
635 |
"*Default method to use for specific user/host pairs. |
"*Default method to use for specific user/host pairs. |
636 |
This is an alist of items (HOST USER METHOD). The first matching item |
This is an alist of items (HOST USER METHOD). The first matching item |
637 |
specifies the method to use for a file name which does not specify a |
specifies the method to use for a file name which does not specify a |
4332 |
|
|
4333 |
(defun tramp-action-password (p multi-method method user host) |
(defun tramp-action-password (p multi-method method user host) |
4334 |
"Query the user for a password." |
"Query the user for a password." |
4335 |
(when (tramp-method-out-of-band-p multi-method method user host) |
(let ((pw-prompt (match-string 0))) |
4336 |
(kill-process (get-buffer-process (current-buffer))) |
(when (tramp-method-out-of-band-p multi-method method user host) |
4337 |
(error (concat "Out of band method `%s' not applicable " |
(kill-process (get-buffer-process (current-buffer))) |
4338 |
"for remote shell asking for a password") |
(error (concat "Out of band method `%s' not applicable " |
4339 |
method)) |
"for remote shell asking for a password") |
4340 |
(tramp-message 9 "Sending password") |
method)) |
4341 |
(tramp-enter-password p (match-string 0))) |
(tramp-message 9 "Sending password") |
4342 |
|
(tramp-enter-password p pw-prompt))) |
4343 |
|
|
4344 |
(defun tramp-action-succeed (p multi-method method user host) |
(defun tramp-action-succeed (p multi-method method user host) |
4345 |
"Signal success in finding shell prompt." |
"Signal success in finding shell prompt." |