Commit 0cccd8ff authored by André Spiegel's avatar André Spiegel
Browse files

(vc-sccs-register): Use relative file names.

parent 176bc847
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;; Author: FSF (see vc.el for full credits) ;; Author: FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <spiegel@gnu.org> ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
;; $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. ;; This file is part of GNU Emacs.
...@@ -174,12 +174,11 @@ expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile." ...@@ -174,12 +174,11 @@ expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile."
(let ((vc-name (let ((vc-name
(or project-file (or project-file
(format (car vc-sccs-master-templates) dirname basename)))|) (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)) (and rev (concat "-r" rev))
"-fb" "-fb"
(concat "-i" file) (concat "-i" (file-relative-name file))
(and comment (concat "-y" comment)) (and comment (concat "-y" comment))
vc-name
switches)) switches))
(delete-file file) (delete-file file)
(if vc-keep-workfiles (if vc-keep-workfiles
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment