Mercurial > emacs
changeset 61093:27c2765e06c8
(vc-do-command): Use a pipe for async processes, so password
prompts don't show up at places where the user can't reply.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 29 Mar 2005 15:30:39 +0000 |
| parents | e5a07aa840d9 |
| children | e1aa8774d8a0 |
| files | lisp/ChangeLog lisp/vc.el |
| diffstat | 2 files changed, 10 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Mar 29 14:56:14 2005 +0000 +++ b/lisp/ChangeLog Tue Mar 29 15:30:39 2005 +0000 @@ -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
--- a/lisp/vc.el Tue Mar 29 14:56:14 2005 +0000 +++ b/lisp/vc.el Tue Mar 29 15:30:39 2005 +0000 @@ -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 @@ ;; 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)))