# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 814467462 0
# Node ID 9493a12ca8a5c7783818b4159ce50d8282972ee2
# Parent  70b16bce1f617d6592065056d1c6292b75bf3820
(internal-ange-ftp-mode):
Set comint-password-prompt-regexp locally to not match anything.

diff -r 70b16bce1f61 -r 9493a12ca8a5 lisp/ange-ftp.el
--- 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)))