Mercurial > emacs

comparison lisp/vc.el @ 22345:0731d54fcce0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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
comparison
equal deleted inserted replaced
22344:2ec50b4767ed 22345:0731d54fcce0
3 ;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1998 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1998 Free Software Foundation, Inc.
4 4
5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> 5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
6 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de> 6 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de>
7 7
8 ;; $Id: vc.el,v 1.226 1998/05/16 03:44:16 rms Exp rms $ 8 ;; $Id: vc.el,v 1.227 1998/05/16 17:53:32 rms Exp spiegel $
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by 13 ;; it under the terms of the GNU General Public License as published by
1723 ((setq filename (dired-get-filename nil t)) 1723 ((setq filename (dired-get-filename nil t))
1724 (cond 1724 (cond
1725 ((file-directory-p filename) 1725 ((file-directory-p filename)
1726 (if (member (file-name-nondirectory filename) 1726 (if (member (file-name-nondirectory filename)
1727 vc-directory-exclusion-list) 1727 vc-directory-exclusion-list)
1728 (dired-kill-line) 1728 (let ((pos (point)))
1729 (dired-kill-tree filename)
1730 (goto-char pos)
1731 (dired-kill-line))
1729 (vc-dired-reformat-line nil) 1732 (vc-dired-reformat-line nil)
1730 (forward-line 1))) 1733 (forward-line 1)))
1731 ((if cvs-dir 1734 ((if cvs-dir
1732 (eq (vc-file-getprop filename 'vc-backend) 'CVS) 1735 (eq (vc-file-getprop filename 'vc-backend) 'CVS)
1733 (vc-backend filename)) 1736 (vc-backend filename))