# HG changeset patch
# User Francesco Potort��� <pot@gnu.org>
# Date 1019158917 0
# Node ID 0dc61586b8019cb2085705a02eef1e4bd96bb6dd
# Parent  0eece64f0aac1b9b8e425292181eff809331285f
(comint-watch-for-password-prompt): Remove whitespace
at the beginning of password prompts.

diff -r 0eece64f0aac -r 0dc61586b801 lisp/comint.el
--- a/lisp/comint.el	Thu Apr 18 19:41:16 2002 +0000
+++ b/lisp/comint.el	Thu Apr 18 19:41:57 2002 +0000
@@ -1984,6 +1984,8 @@
 
 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))))