From c06b6e6f7bae841ae291392c481e6117a130a8a0 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Andr=C3=A9=20Spiegel?= <spiegel@gnu.org>
Date: Wed, 3 Jun 1998 15:07:04 +0000
Subject: [PATCH] (vc-dired-hook): Kill excluded directories recursively.

---
 lisp/vc.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp/vc.el b/lisp/vc.el
index 51d3748943b..25d8f26ee1f 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.226 1998/05/16 03:44:16 rms Exp rms $
+;; $Id: vc.el,v 1.227 1998/05/16 17:53:32 rms Exp spiegel $
 
 ;; This file is part of GNU Emacs.
 
@@ -1725,7 +1725,10 @@ There is a special command, `*l', to mark all files currently locked."
          ((file-directory-p filename)
           (if (member (file-name-nondirectory filename) 
                       vc-directory-exclusion-list)
-              (dired-kill-line)
+              (let ((pos (point)))
+                (dired-kill-tree filename)
+                (goto-char pos)
+                (dired-kill-line))
             (vc-dired-reformat-line nil)
             (forward-line 1)))
          ((if cvs-dir
-- 
2.39.2