Commits

Anonymous committed f036003

Jens Giessmann <jg@handcode.de>
20050603131921.GG362@shack.handcode.de
Auto generation of RCS directory

  • Participants
  • Parent commits 7bcf97b

Comments (0)

Files changed (2)

+2005-06-03  Jens Giessmann  <jg@handcode.de>
+
+	* vc.el: (vc-create-initial-rcs-dir): If non-nil 
+	and there is no ./RCS subdirectory yet, create it.
+
 2004-12-22  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.40 released.
 			 string))
   :group 'vc)
 
+(defcustom vc-create-initial-rcs-dir nil
+  "*If non-nil and there is no ./RCS subdirectory yet, create it."
+:type 'boolean 
+:group 'vc) 
+
 (defcustom vc-directory-exclusion-list '("SCCS" "RCS" "CVS")
   "*List of directory names to be ignored while recursively walking file trees."
   :type '(repeat string)
              (vc-do-command nil 0 "get" file 'MASTER)))
 
 	  ((eq backend 'RCS)
+	   ;; If vc-create-initial-rcs-dir is non-nil 
+	   ;; and there is no RCS subdirectory yet, create it. 
+           (if (and (not (file-exists-p "RCS")) vc-create-initial-rcs-dir) 
+	       (make-directory "RCS")) 
 	   (apply 'vc-do-command nil 0 "ci" file 'WORKFILE	;; RCS
                                  ;; if available, use the secure registering option
                                  (and (vc-backend-release-p 'RCS "5.6.4") "-i")