(comint-watch-for-password-prompt): Use STRING as a prompt.

diff --git a/lisp/comint.el b/lisp/comint.el
index 8e348797d392eb9951d9766281de8a0bb130aa26..dd440a125edc0f95a5d243ee9751adbabc3ea787 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1847,8 +1847,9 @@ process if STRING contains a password prompt defined by
 `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))))
 \f
 ;; Low-level process communication