From: Karl Heuer <kwzh@gnu.org>
Date: Sun, 27 Jun 1999 21:39:42 +0000 (+0000)
Subject: (comint-password-prompt-regexp): Allow "(again)".
X-Git-Tag: emacs-20.4~56
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=40c2d410caefa84fa1702550510d2c9b7d75d830;p=emacs.git

(comint-password-prompt-regexp): Allow "(again)".
---

diff --git a/lisp/comint.el b/lisp/comint.el
index 09af0704a38..a8019f8ee31 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -281,8 +281,10 @@ This variable is buffer-local."
 ;; 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'."