ryuslash/dispass.el
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Clean-up prompts from dispass a little

Browse source 
Remove any leading and trailing whitespace and add a single space.
This commit is contained in:
Tom Willemsen 2012-11-18 21:03:32 +01:00
parent 312e06ecab
commit 32040e08a0
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
dispass.el
View file

@ -172,8 +172,12 @@ 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
(concat (read-passwd string nil) "\n"))) proc
(concat (read-passwd
(concat (replace-regexp-in-string
"^[ \t\n]+\\|[ \t\n]+$" "" string) " ")
nil) "\n")))
((string-match (concat "^[ \t]*" ,label "[ \t]*\\(.+\\)$") ((string-match (concat "^[ \t]*" ,label "[ \t]*\\(.+\\)$")
string) string)