# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 930519582 0
# Node ID c74f4b5eb6574c63ca8df35006f8ee46b044b1e9
# Parent  576028540ef4cc0b51d6a8272f852ddc8089718c
(comint-password-prompt-regexp): Allow "(again)".

diff -r 576028540ef4 -r c74f4b5eb657 lisp/comint.el
--- a/lisp/comint.el	Sun Jun 27 21:35:09 1999 +0000
+++ b/lisp/comint.el	Sun Jun 27 21:39:42 1999 +0000
@@ -281,8 +281,10 @@
 ;; kinit prints a prompt like `Password for devnull@GNU.ORG: '.
 ;; ksu prints a prompt like `Kerberos password for devnull/root@GNU.ORG: '.
 ;; ssh-add prints a prompt like `Enter passphrase: '.
+;; Some implementations of passwd use "Password (again)" as the 2nd prompt.
 (defcustom comint-password-prompt-regexp
-  "\\(\\([Oo]ld \\|[Nn]ew \\|Kerberos \\|'s \\|login \\|^\\)[Pp]assword\\|pass phrase\\|Enter passphrase\\)\
+  "\\(\\([Oo]ld \\|[Nn]ew \\|Kerberos \\|'s \\|login \\|^\\)\
+[Pp]assword\\( (again)\\)?\\|pass phrase\\|Enter passphrase\\)\
 \\( for [^@ \t\n]+@[^@ \t\n]+\\)?:\\s *\\'"
   "*Regexp matching prompts for passwords in the inferior process.
 This is used by `comint-watch-for-password-prompt'."