/[emacs]/emacs/lisp/pcvs.el
ViewVC logotype

Diff of /emacs/lisp/pcvs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.35.2.10 by miles, Mon Oct 25 04:22:23 2004 UTC revision 1.35.2.11 by miles, Fri Nov 12 04:21:13 2004 UTC
# Line 1  Line 1 
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
# Line 923  With a prefix argument, prompt for cvs F Line 923  With a prefix argument, prompt for cvs F
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.
# Line 2353  The exact behavior is determined also by Line 2368  The exact behavior is determined also by
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

Legend:
Removed from v.1.35.2.10  
changed lines
  Added in v.1.35.2.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26