Commit c06b6e6f authored by André Spiegel's avatar André Spiegel
Browse files

(vc-dired-hook): Kill excluded directories recursively.

parent ad077db0
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment