procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
an async subprocess if start-process is unavailable.  Suggested by
Tim Van Holder <tim.van.holder@pandora.be>.
This commit is contained in:
Eli Zaretskii 2001-04-17 06:01:40 +00:00
parent 79ea1938e3
commit 8f9ab4032f
2 changed files with 15 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
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

13
lisp/vc-cvs.el
View file

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