diff options
author | André Spiegel <[email protected]> | 1997-05-21 14:42:09 +0000 |
---|---|---|
committer | André Spiegel <[email protected]> | 1997-05-21 14:42:09 +0000 |
commit | a1d713ef1e3ceb84375872513767ea82aafd36a5 (patch) | |
tree | 1a79768921729776edd67f5cde62765e4691e60f /lisp/vc.el | |
parent | b7f6ca05bf6702880fe298631e20e923bd357612 (diff) |
(vc-backend-admin): If there is no SCCS subdirectory yet, create it.
Diffstat (limited to 'lisp/vc.el')
-rw-r--r-- | lisp/vc.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index 5762cf4e60..d261692db0 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -1957,6 +1957,9 @@ default directory." ((file-exists-p "CVS") 'CVS) (t vc-default-back-end)))) (cond ((eq backend 'SCCS) + ;; If there is no SCCS subdirectory yet, create it. + ;; (SCCS could do without it, but VC requires it to be there.) + (if (not (file-exists-p "SCCS")) (make-directory "SCCS")) (apply 'vc-do-command nil 0 "admin" file 'MASTER ;; SCCS (and rev (concat "-r" rev)) "-fb" |