Clean-up prompts from dispass a little

Remove any leading and trailing whitespace and add a single space.
2012-11-18 21:03:32 +01:00 · 2012-11-18 21:03:32 +01:00 · 32040e08a0
commit 32040e08a0
parent 312e06ecab
1 changed files with 6 additions and 2 deletions
--- a/dispass.el
+++ b/dispass.el
@ -172,8 +172,12 @@ an eye out for LABEL."
  `(lambda (proc string)
     "Process STRING coming from PROC."
     (cond ((string-match "^\\(Password[^:]*\\|Again\\): ?$" string)
-            (process-send-string proc
-                                 (concat (read-passwd string nil) "\n")))
+            (process-send-string
+             proc
+             (concat (read-passwd
+                      (concat (replace-regexp-in-string
+                               "^[ \t\n]+\\|[ \t\n]+$" "" string) " ")
+                      nil) "\n")))

           ((string-match (concat "^[ \t]*" ,label "[ \t]*\\(.+\\)$")
                          string)