1 |
;;; pcvs.el --- a front-end to CVS |
;;; pcvs.el --- a front-end to CVS |
2 |
|
|
3 |
;; Copyright (C) 1991,92,93,94,95,95,97,98,99,2000,02,03,2004 |
;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, |
4 |
;; Free Software Foundation, Inc. |
;; 2000, 2002, 2003, 2004 Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: (The PCL-CVS Trust) pcl-cvs@cyclic.com |
;; Author: (The PCL-CVS Trust) pcl-cvs@cyclic.com |
7 |
;; (Per Cederqvist) ceder@lysator.liu.se |
;; (Per Cederqvist) ceder@lysator.liu.se |
923 |
(append flags modules) nil 'new |
(append flags modules) nil 'new |
924 |
:noexist t)) |
:noexist t)) |
925 |
|
|
926 |
|
(defun-cvs-mode (cvs-mode-checkout . NOARGS) (dir) |
927 |
|
"Run cvs checkout against the current branch. |
928 |
|
The files are stored to DIR." |
929 |
|
(interactive |
930 |
|
(let* ((branch (cvs-prefix-get 'cvs-branch-prefix)) |
931 |
|
(prompt (format "CVS Checkout Directory for `%s%s': " |
932 |
|
(cvs-get-module) |
933 |
|
(if branch (format " (branch: %s)" branch) |
934 |
|
"")))) |
935 |
|
(list (read-directory-name prompt nil default-directory nil)))) |
936 |
|
(let ((modules (cvs-string->strings (cvs-get-module))) |
937 |
|
(flags (cvs-add-branch-prefix |
938 |
|
(cvs-flags-query 'cvs-checkout-flags "cvs checkout flags"))) |
939 |
|
(cvs-cvsroot (cvs-get-cvsroot))) |
940 |
|
(cvs-checkout modules dir flags))) |
941 |
|
|
942 |
;;;; |
;;;; |
943 |
;;;; The code for running a "cvs update" and friends in various ways. |
;;;; The code for running a "cvs update" and friends in various ways. |
2368 |
|
|
2369 |
(provide 'pcvs) |
(provide 'pcvs) |
2370 |
|
|
2371 |
;;; arch-tag: 8e3a7494-0453-4389-9ab3-a557ce9fab61 |
;; arch-tag: 8e3a7494-0453-4389-9ab3-a557ce9fab61 |
2372 |
;;; pcvs.el ends here |
;;; pcvs.el ends here |