# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1189822932 0
# Node ID 44b45775d250691365704ac1eadb3080af2a4f75
# Parent  d1fd48a6a8ed8b3a69d398a64e225cac95b7db62
(cvs-tags-list, cvs-retrieve-revision, cvs-find-modif)
(cvs-execute-single-file): Use process-file.
(cvs-run-process): Use start-file-process.

diff -r d1fd48a6a8ed -r 44b45775d250 lisp/ChangeLog
--- 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
diff -r d1fd48a6a8ed -r 44b45775d250 lisp/pcvs.el
--- 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...