From: Francesco Potortì <pot@gnu.org>
Date: Thu, 18 Apr 2002 19:41:57 +0000 (+0000)
Subject: (comint-watch-for-password-prompt): Remove whitespace
X-Git-Tag: ttn-vms-21-2-B4~15554
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ccb6090a078693e971578e3c419df9140badaa80;p=emacs.git

(comint-watch-for-password-prompt): Remove whitespace
at the beginning of password prompts.
---

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
 
 This function could be in the list `comint-output-filter-functions'."
   (when (string-match comint-password-prompt-regexp string)
+    (when (string-match "^[ \n\r\t\v\f\b\a]+" string)
+      (setq string (replace-match "" t t string)))
     (let ((pw (comint-read-noecho string t)))
       (send-invisible pw))))