mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(cvs-tags-list, cvs-retrieve-revision, cvs-find-modif)

Browse Source 
(cvs-execute-single-file): Use process-file.
(cvs-run-process): Use start-file-process.
This commit is contained in:
Stefan Monnier 2007-09-15 02:22:12 +00:00
parent aaeefd66c5
commit 62b84d3645
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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

10
lisp/pcvs.el
View File

@ -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 @@ If non-nil, NEW means to create a new buffer no matter what."
(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 @@ Signal an error if there is no backup file."
;; 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 @@ to hear about anymore."
(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 @@ With prefix argument, prompt for cvs flags."
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...