Function: cvs-execute-single-file

cvs-execute-single-file is a byte-compiled function defined in pcvs.el.gz.

Signature

(cvs-execute-single-file FI EXTRACTOR PROGRAM CONSTANT-ARGS)

Documentation

Internal function for cvs-execute-single-file-list.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/pcvs.el.gz
(defun cvs-execute-single-file (fi extractor program constant-args)
  "Internal function for `cvs-execute-single-file-list'."
  (let* ((arg-list (funcall extractor fi))
	 (inhibit-read-only t))

    ;; Execute the command unless extractor returned t.
    (when (listp arg-list)
      (let* ((args (append constant-args arg-list)))

	(insert (format "=== %s %s\n\n"
			program (split-string-and-unquote args)))

	;; FIXME: return the exit status?
	(apply 'process-file program nil t t args)
	(goto-char (point-max))))))