diff options
| -rw-r--r-- | lisp/comint.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index c47baba3651..aa5dfdfc846 100644 --- a/lisp/comint.el +++ b/lisp/comint.el | |||
| @@ -1984,6 +1984,8 @@ process if STRING contains a password prompt defined by | |||
| 1984 | 1984 | ||
| 1985 | This function could be in the list `comint-output-filter-functions'." | 1985 | This function could be in the list `comint-output-filter-functions'." |
| 1986 | (when (string-match comint-password-prompt-regexp string) | 1986 | (when (string-match comint-password-prompt-regexp string) |
| 1987 | (when (string-match "^[ \n\r\t\v\f\b\a]+" string) | ||
| 1988 | (setq string (replace-match "" t t string))) | ||
| 1987 | (let ((pw (comint-read-noecho string t))) | 1989 | (let ((pw (comint-read-noecho string t))) |
| 1988 | (send-invisible pw)))) | 1990 | (send-invisible pw)))) |
| 1989 | 1991 | ||