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 | 5e1515a85dc9e81c6ecbb90539c035da2f4f6efa (patch) | |
| tree | c4b24edd6356d0ae6fd2899ee20676e9e7fbcfe9 /lisp/ange-ftp.el | |
| parent | da19ac119eb68a88021542c68a0f99ab8cc02263 (diff) | |
| download | emacs-5e1515a85dc9e81c6ecbb90539c035da2f4f6efa.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))) |