mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 22:50:59 -08:00
Code Issues Projects Releases Wiki Activity

(vc-cvs-print-log, vc-cvs-diff): Use asynchronous mode only for remote

Browse source 
repositories.
This commit is contained in:
André Spiegel 2000-11-16 16:42:10 +00:00
parent d9ed410081
commit e5effdcc20
1 changed files with 16 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

28
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.9 2000/11/16 13:38:03 spiegel Exp $
;; $Id: vc-cvs.el,v 1.10 2000/11/16 15:29:40 spiegel Exp $
;; This file is part of GNU Emacs.
@ -314,7 +314,8 @@ is non-nil."
(defun vc-cvs-print-log (file)
"Get change log associated with FILE."
(vc-do-command t 'async "cvs" file "log"))
(vc-do-command t (if (vc-cvs-stay-local-p file) 'async 0)
"cvs" file "log"))
(defun vc-cvs-show-log-entry (version)
(when (re-search-forward
@ -488,16 +489,19 @@ Inappropriate for CVS"
(error "No revisions of %s exist" file)
;; we regard this as "changed".
;; diff it against /dev/null.
(apply 'vc-do-command t
'async "diff" file
(append diff-switches-list '("/dev/null"))))
(apply 'vc-do-command t
'async "cvs" file "diff"
(and oldvers (concat "-r" oldvers))
(and newvers (concat "-r" newvers))
diff-switches-list))
;; We can't know yet, so we assume there'll be a difference
1))
(apply 'vc-do-command t
1 "diff" file
(append diff-switches-list '("/dev/null"))))
(setq status
(apply 'vc-do-command t
(if (vc-cvs-stay-local-p file) 'async 1)
"cvs" file "diff"
(and oldvers (concat "-r" oldvers))
(and newvers (concat "-r" newvers))
diff-switches-list))
(if (vc-cvs-stay-local-p file)
1 ;; async diff, pessimistic assumption
status))))
(defun vc-cvs-latest-on-branch-p (file)
"Return t iff current workfile version of FILE is the latest on its branch."