diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-10-23 16:57:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-10-23 16:57:42 +0000 |
| commit | e4d067e02b99b107c25a287cd583c4ebfb98ab65 (patch) | |
| tree | 479a8dd69d7a662d084a3836d4f33c04058c0ab6 /lisp/ange-ftp.el | |
| parent | 034935e623f0ec771eba376ed3ce197adcf359bb (diff) | |
| download | emacs-e4d067e02b99b107c25a287cd583c4ebfb98ab65.tar.gz | |
(internal-ange-ftp-mode):
Set comint-password-prompt-regexp locally to not match anything.
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))) |