Commit 8f9ab403 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(vc-cvs-print-log, vc-cvs-diff): Don't invoke CVS as

an async subprocess if start-process is unavailable.  Suggested by
Tim Van Holder <tim.van.holder@pandora.be>.
parent 79ea1938
2001-04-17 Eli Zaretskii <eliz@is.elta.co.il>
* vc-cvs.el (vc-cvs-print-log, vc-cvs-diff): Don't invoke CVS as
an async subprocess if start-process is unavailable. Suggested by
Tim Van Holder <tim.van.holder@pandora.be>.
2001-04-15 Eli Zaretskii <eliz@is.elta.co.il>
 
* info.el (Info-additional-directory-list): Doc fix. Suggested by
......
......@@ -5,7 +5,7 @@
;; Author: FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <spiegel@gnu.org>
;; $Id: vc-cvs.el,v 1.20 2001/02/02 07:21:21 spiegel Exp $
;; $Id: vc-cvs.el,v 1.21 2001/03/10 10:49:05 spiegel Exp $
;; This file is part of GNU Emacs.
......@@ -461,8 +461,10 @@ The changes are between FIRST-VERSION and SECOND-VERSION."
(defun vc-cvs-print-log (file)
"Get change log associated with FILE."
(vc-do-command nil (if (vc-cvs-stay-local-p file) 'async 0)
"cvs" file "log"))
(vc-do-command
nil
(if (and (vc-cvs-stay-local-p file) (fboundp 'start-process)) 'async 0)
"cvs" file "log"))
(defun vc-cvs-show-log-entry (version)
(when (re-search-forward
......@@ -509,7 +511,10 @@ The changes are between FIRST-VERSION and SECOND-VERSION."
(append diff-switches-list '("/dev/null"))))
(setq status
(apply 'vc-do-command "*vc-diff*"
(if (vc-cvs-stay-local-p file) 'async 1)
(if (and (vc-cvs-stay-local-p file)
(fboundp 'start-process))
'async
1)
"cvs" file "diff"
(and oldvers (concat "-r" oldvers))
(and newvers (concat "-r" newvers))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment