# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 970808097 0
# Node ID 219a95f2ef0548d56a4eebfa676e5900b24ee82e
# Parent  e0870d1a8c33482cfd45d7576104c40ceb765ebf
(comint-watch-for-password-prompt): Use STRING as a prompt.

diff -r e0870d1a8c33 -r 219a95f2ef05 lisp/comint.el
--- a/lisp/comint.el	Thu Oct 05 23:47:14 2000 +0000
+++ b/lisp/comint.el	Fri Oct 06 04:54:57 2000 +0000
@@ -1847,8 +1847,9 @@
 `comint-password-prompt-regexp'.
 
 This function could be in the list `comint-output-filter-functions'."
-  (if (string-match comint-password-prompt-regexp string)
-      (send-invisible nil)))
+  (when (string-match comint-password-prompt-regexp string)
+    (let ((pw (comint-read-noecho string t)))
+      (send-invisible pw))))
 
 ;; Low-level process communication