(vc-do-command): Use a pipe for async processes, so password

prompts don't show up at places where the user can't reply.

2 files changed, 10 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a656b62248c..7ef89d4ce56 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-03-29  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * vc.el (vc-do-command): Use a pipe for async processes, so password
+        prompts don't show up at places where the user can't reply.
+
 2005-03-29  Olive Lin  <olive.lin@versateladsl.be>
 
         * textmodes/tex-mode.el (tex-send-command): shell-quote-argument
diff --git a/lisp/vc.el b/lisp/vc.el
index 2e241e67f48..ce4cb2d36c8 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1,7 +1,7 @@
 ;;; vc.el --- drive a version-control system from within Emacs
 
 ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998,
-;;   2000, 2001, 2003, 2004  Free Software Foundation, Inc.
+;;   2000, 2001, 2003, 2004, 2005  Free Software Foundation, Inc.
 
 ;; Author:     FSF (see below for full credits)
 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
@@ -962,8 +962,10 @@ that is inserted into the command line before the filename."
             ;; start-process does not support remote execution
             (setq okstatus nil))
         (if (eq okstatus 'async)
-            (let ((proc (apply 'start-process command (current-buffer) command
-                               squeezed)))
+            (let ((proc
+                   (let ((process-connection-type nil))
+                     (apply 'start-process command (current-buffer) command
+                            squeezed))))
               (unless (active-minibuffer-window)
                 (message "Running %s in the background..." command))
               ;;(set-process-sentinel proc (lambda (p msg) (delete-process p)))