diff options
| author | André Spiegel <spiegel@gnu.org> | 1998-06-03 15:07:04 +0000 |
|---|---|---|
| committer | André Spiegel <spiegel@gnu.org> | 1998-06-03 15:07:04 +0000 |
| commit | c06b6e6f7bae841ae291392c481e6117a130a8a0 (patch) | |
| tree | ec2ae474d00d376323672ba4e265ea453330a891 | |
| parent | ad077db084860c8c8e3f94221c20dd3ce3dea97e (diff) | |
| download | emacs-c06b6e6f7bae841ae291392c481e6117a130a8a0.tar.gz emacs-c06b6e6f7bae841ae291392c481e6117a130a8a0.tar.bz2 emacs-c06b6e6f7bae841ae291392c481e6117a130a8a0.zip | |
(vc-dired-hook): Kill excluded directories recursively.
| -rw-r--r-- | lisp/vc.el | 7 |
1 files 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 |