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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a656b62248ce9e18d08b4b6078b9716e2ea95b57..7ef89d4ce5683d6b951b05b8e1b1c96978d88be5 100644 (file)
--- 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 2e241e67f482e1800004fa2fb8648b62c48fea0f..ce4cb2d36c8d0e1f758a16fc67bbf43a356e11df 100644 (file)
--- 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)))