Mercurial > emacs
changeset 84571:44b45775d250
(cvs-tags-list, cvs-retrieve-revision, cvs-find-modif)
(cvs-execute-single-file): Use process-file.
(cvs-run-process): Use start-file-process.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 15 Sep 2007 02:22:12 +0000 |
| parents | d1fd48a6a8ed |
| children | 6a75da04c64f |
| files | lisp/ChangeLog lisp/pcvs.el |
| diffstat | 2 files changed, 11 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Sep 15 00:27:38 2007 +0000 +++ b/lisp/ChangeLog Sat Sep 15 02:22:12 2007 +0000 @@ -1,3 +1,9 @@ +2007-09-15 Stefan Monnier <monnier@iro.umontreal.ca> + + * pcvs.el (cvs-tags-list, cvs-retrieve-revision, cvs-find-modif) + (cvs-execute-single-file): Use process-file. + (cvs-run-process): Use start-file-process. + 2007-09-15 Dan Nicolaescu <dann@ics.uci.edu> * xt-mouse.el (xterm-mouse-mode): Add hooks here not at the top
--- a/lisp/pcvs.el Sat Sep 15 00:27:38 2007 +0000 +++ b/lisp/pcvs.el Sat Sep 15 02:22:12 2007 +0000 @@ -227,7 +227,7 @@ (list* '("BASE") '("HEAD") (when marked (with-temp-buffer - (call-process cvs-program + (process-file cvs-program nil ;no input t ;output to current-buffer nil ;don't update display while running @@ -564,7 +564,7 @@ (process ;; the process will be run in the selected dir (let ((default-directory (cvs-expand-dir-name dir))) - (apply 'start-process "cvs" procbuf cvs-program args)))) + (apply 'start-file-process "cvs" procbuf cvs-program args)))) ;; setup the process. (process-put process 'cvs-buffer cvs-buffer) (with-current-buffer cvs-buffer (cvs-update-header msg 'add)) @@ -1736,7 +1736,7 @@ ;; problem when stdout and stderr are the same. (let ((res (let ((coding-system-for-read 'binary)) - (apply 'call-process cvs-program nil '(t nil) nil + (apply 'process-file cvs-program nil '(t nil) nil "-q" "update" "-p" ;; If `rev' is HEAD, don't pass it at all: ;; the default behavior is to get the head @@ -2006,7 +2006,7 @@ (defun cvs-find-modif (fi) (with-temp-buffer - (call-process cvs-program nil (current-buffer) nil + (process-file cvs-program nil (current-buffer) nil "-f" "diff" (cvs-fileinfo->file fi)) (goto-char (point-min)) (if (re-search-forward "^\\([0-9]+\\)" nil t) @@ -2260,7 +2260,7 @@ program (split-string-and-unquote args))) ;; FIXME: return the exit status? - (apply 'call-process program nil t t args) + (apply 'process-file program nil t t args) (goto-char (point-max)))))) ;; FIXME: make this run in the background ala cvs-run-process...