diff options
| author | André Spiegel <[email protected]> | 2001-03-29 11:49:22 +0000 |
|---|---|---|
| committer | André Spiegel <[email protected]> | 2001-03-29 11:49:22 +0000 |
| commit | 0cccd8ffec07bb40d4a11888f7643eb94f9a020f (patch) | |
| tree | 5f08fab9170ac55091207ff01c47ba0177e2e5ee /lisp/vc-sccs.el | |
| parent | 176bc847137c3c61c2fc03edc9293aa3d2fb8548 (diff) | |
(vc-sccs-register): Use relative file names.
Diffstat (limited to 'lisp/vc-sccs.el')
| -rw-r--r-- | lisp/vc-sccs.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el index bf2bf48430..2eb66b9f2e 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 <[email protected]> -;; $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 |