diff options
Diffstat (limited to 'lisp/ange-ftp.el')
| -rw-r--r-- | lisp/ange-ftp.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 0983fc2180d..5e427b7126e 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -1826,6 +1826,10 @@ on the gateway machine to do the ftp instead." (setq ange-ftp-process-result-line "") (setq comint-prompt-regexp "^ftp> ") + (make-local-variable 'comint-password-prompt-regexp) + ;; This is a regexp that can't match anything. + ;; ange-ftp has its own ways of handling passwords. + (setq comint-password-prompt-regexp "^a\\'z") (make-local-variable 'paragraph-start) (setq paragraph-start comint-prompt-regexp))) |