From 0cccd8ffec07bb40d4a11888f7643eb94f9a020f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20Spiegel?= Date: Thu, 29 Mar 2001 11:49:22 +0000 Subject: (vc-sccs-register): Use relative file names. --- lisp/vc-sccs.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'lisp/vc-sccs.el') diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el index bf2bf48430b..2eb66b9f2e7 100644 --- a/lisp/vc-sccs.el +++ b/lisp/vc-sccs.el @@ -5,7 +5,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel -;; $Id: vc-sccs.el,v 1.9 2001/02/01 17:42:44 fx Exp $ +;; $Id: vc-sccs.el,v 1.10 2001/03/10 10:51:22 spiegel Exp $ ;; This file is part of GNU Emacs. @@ -174,12 +174,11 @@ expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile." (let ((vc-name (or project-file (format (car vc-sccs-master-templates) dirname basename)))|) - (apply 'vc-do-command nil 0 "admin" nil + (apply 'vc-do-command nil 0 "admin" vc-name (and rev (concat "-r" rev)) "-fb" - (concat "-i" file) + (concat "-i" (file-relative-name file)) (and comment (concat "-y" comment)) - vc-name switches)) (delete-file file) (if vc-keep-workfiles -- cgit v1.2.1