(completion-ignored-extensions): Add .svn.

[bpt/emacs.git] / lisp / vc-svn.el

diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el
index aeea2ff..b5f2d77 100644 (file)
--- a/lisp/vc-svn.el
+++ b/lisp/vc-svn.el
@@ -1,6 +1,6 @@
 ;;; vc-svn.el --- non-resident support for Subversion version-control
 
-;; Copyright (C) 1995,98,99,2000,2001,2002  Free Software Foundation, Inc.
+;; Copyright (C) 1995,98,99,2000,2001,02,2003  Free Software Foundation, Inc.
 
 ;; Author:      FSF (see vc.el for full credits)
 ;; Maintainer:  Stefan Monnier <monnier@gnu.org>
@@ -99,6 +99,9 @@ This is only meaningful if you don't use the implicit checkout model
 ;;;###autoload       (load "vc-svn")
 ;;;###autoload       (vc-svn-registered f)))
 
+;;;###autoload
+(add-to-list 'completion-ignored-extensions ".svn/")
+
 (defun vc-svn-registered (file)
   "Check if FILE is SVN registered."
   (when (file-readable-p (expand-file-name ".svn/entries"
@@ -246,6 +249,9 @@ This is only possible if SVN is responsible for FILE's directory.")
             (concat "-r" rev))
           switches)))
 
+(defun vc-svn-delete-file (file)
+  (vc-svn-command nil 0 file "remove"))
+
 (defun vc-svn-rename-file (old new)
   (vc-svn-command nil 0 new "move" (file-relative-name old)))