1 |
;;; vc-svn.el --- non-resident support for Subversion version-control |
;;; vc-svn.el --- non-resident support for Subversion version-control |
2 |
|
|
3 |
;; 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. |
4 |
|
|
5 |
;; Author: FSF (see vc.el for full credits) |
;; Author: FSF (see vc.el for full credits) |
6 |
;; Maintainer: Stefan Monnier <monnier@gnu.org> |
;; Maintainer: Stefan Monnier <monnier@gnu.org> |
99 |
;;;###autoload (load "vc-svn") |
;;;###autoload (load "vc-svn") |
100 |
;;;###autoload (vc-svn-registered f))) |
;;;###autoload (vc-svn-registered f))) |
101 |
|
|
102 |
|
;;;###autoload |
103 |
|
(add-to-list 'completion-ignored-extensions ".svn/") |
104 |
|
|
105 |
(defun vc-svn-registered (file) |
(defun vc-svn-registered (file) |
106 |
"Check if FILE is SVN registered." |
"Check if FILE is SVN registered." |
107 |
(when (file-readable-p (expand-file-name ".svn/entries" |
(when (file-readable-p (expand-file-name ".svn/entries" |
249 |
(concat "-r" rev)) |
(concat "-r" rev)) |
250 |
switches))) |
switches))) |
251 |
|
|
252 |
|
(defun vc-svn-delete-file (file) |
253 |
|
(vc-svn-command nil 0 file "remove")) |
254 |
|
|
255 |
(defun vc-svn-rename-file (old new) |
(defun vc-svn-rename-file (old new) |
256 |
(vc-svn-command nil 0 new "move" (file-relative-name old))) |
(vc-svn-command nil 0 new "move" (file-relative-name old))) |
257 |
|
|