(vc-fetch-cvs-status): Use "-l" option for "cvs status", to make it

non-recursive.
This commit is contained in:
André Spiegel 1999-06-30 07:16:14 +00:00
parent 9fe89e7308
commit 2b4603f465

View file

@ -5,7 +5,7 @@
;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de>
;; $Id: vc.el,v 1.248 1999/06/15 05:48:18 kwzh Exp kwzh $
;; $Id: vc.el,v 1.249 1999/06/15 17:40:09 kwzh Exp $
;; This file is part of GNU Emacs.
@ -1740,7 +1740,7 @@ There is a special command, `*l', to mark all files currently locked."
(let ((default-directory dir))
;; Don't specify DIR in this command, the default-directory is
;; enough. Otherwise it might fail with remote repositories.
(vc-do-command "*vc-info*" 0 "cvs" nil nil "status")
(vc-do-command "*vc-info*" 0 "cvs" nil nil "status" "-l")
(save-excursion
(set-buffer (get-buffer "*vc-info*"))
(goto-char (point-min))