From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 14 May 2003 19:38:39 +0000 (+0000)
Subject: (completion-ignored-extensions): Add .svn.
X-Git-Tag: ttn-vms-21-2-B4~10157
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3bdc13e46ca4c714839c6bad770af160bde6e824;p=emacs.git

(completion-ignored-extensions): Add .svn.
(vc-svn-delete-file): New function.
---

diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el
index aeea2ff5b2e..b5f2d7761ca 100644
--- 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)))