mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(vc-backend-admin): If there is no SCCS subdirectory yet, create it.

Browse Source
This commit is contained in:
André Spiegel 1997-05-21 14:42:09 +00:00
parent b7f6ca05bf
commit a1d713ef1e
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/vc.el
View File

@ -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"