Fix -c flag for dispass

Since the prompt for dispass has changed in v0.1a8 the process filter
didn't recognize the second prompt anymore.
This commit is contained in:
Tom Willemsen 2012-07-05 02:07:38 +02:00
parent f0a31cb1f6
commit c72616deeb

View file

@ -132,7 +132,7 @@
an eye out for LABEL." an eye out for LABEL."
`(lambda (proc string) `(lambda (proc string)
"Process STRING coming from PROC." "Process STRING coming from PROC."
(cond ((string-match "^\\(Password\\|Again\\): ?$" string) (cond ((string-match "^\\(Password[^:]*\\|Again\\): ?$" string)
(process-send-string proc (process-send-string proc
(concat (read-passwd string nil) "\n"))) (concat (read-passwd string nil) "\n")))