# HG changeset patch
# User Andr��� Spiegel <spiegel@gnu.org>
# Date 864225729 0
# Node ID 058196d8908eb34b34e1027b01804d03b64c66ef
# Parent  f74cdb2aa9cc4c5f1ceef5698ef48124957f968a
(vc-backend-admin): If there is no SCCS subdirectory yet, create it.

diff -r f74cdb2aa9cc -r 058196d8908e lisp/vc.el
--- a/lisp/vc.el	Wed May 21 07:09:21 1997 +0000
+++ b/lisp/vc.el	Wed May 21 14:42:09 1997 +0000
@@ -1957,6 +1957,9 @@
 	  ((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"