Mercurial > emacs
diff lisp/vc.el @ 22345:0731d54fcce0
(vc-dired-hook): Kill excluded directories recursively.
author | André Spiegel <spiegel@gnu.org> |
---|---|
date | Wed, 03 Jun 1998 15:07:04 +0000 |
parents | a56ece8d806e |
children | a1f8c5a5c3e1 |
line wrap: on
line diff
--- a/lisp/vc.el Wed Jun 03 14:45:03 1998 +0000 +++ b/lisp/vc.el Wed Jun 03 15:07:04 1998 +0000 @@ -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 @@ ((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