changeset 13278:9493a12ca8a5

(internal-ange-ftp-mode): Set comint-password-prompt-regexp locally to not match anything.
author Richard M. Stallman <rms@gnu.org>
date Mon, 23 Oct 1995 16:57:42 +0000
parents 70b16bce1f61
children 68cd0fc88a56
files lisp/ange-ftp.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ange-ftp.el	Mon Oct 23 04:42:46 1995 +0000
+++ b/lisp/ange-ftp.el	Mon Oct 23 16:57:42 1995 +0000
@@ -1826,6 +1826,10 @@
     (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)))