From: André Spiegel <spiegel@gnu.org>
Date: Wed, 30 Jun 1999 07:16:14 +0000 (+0000)
Subject: (vc-fetch-cvs-status): Use "-l" option for "cvs status", to make it
X-Git-Tag: emacs-20.4~46
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2b4603f4653aa9dd8ca9d4392aedd29c91b3116b;p=emacs.git

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

diff --git a/lisp/vc.el b/lisp/vc.el
index 700209a0a16..94c1a801634 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -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))