From a1d713ef1e3ceb84375872513767ea82aafd36a5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9=20Spiegel?= <spiegel@gnu.org>
Date: Wed, 21 May 1997 14:42:09 +0000
Subject: [PATCH] (vc-backend-admin): If there is no SCCS subdirectory yet,
 create it.

---
 lisp/vc.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lisp/vc.el b/lisp/vc.el
index 5762cf4e605..d261692db04 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"