# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1052941119 0
# Node ID c09edac18f97a06ea552adb6f790c84e817eb24a
# Parent  e37bc45a2001912e9d8e922af775bde84eb9932b
(completion-ignored-extensions): Add .svn.
(vc-svn-delete-file): New function.

diff -r e37bc45a2001 -r c09edac18f97 lisp/vc-svn.el
--- a/lisp/vc-svn.el	Wed May 14 18:57:05 2003 +0000
+++ b/lisp/vc-svn.el	Wed May 14 19:38:39 2003 +0000
@@ -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 @@
 ;;;###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 @@
 	     (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)))