[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/pcvs.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/pcvs.el [lexbind] |
Date: |
Thu, 11 Nov 2004 23:45:17 -0500 |
Index: emacs/lisp/pcvs.el
diff -c emacs/lisp/pcvs.el:1.35.2.10 emacs/lisp/pcvs.el:1.35.2.11
*** emacs/lisp/pcvs.el:1.35.2.10 Mon Oct 25 04:22:23 2004
--- emacs/lisp/pcvs.el Fri Nov 12 04:21:13 2004
***************
*** 1,7 ****
;;; pcvs.el --- a front-end to CVS
! ;; Copyright (C) 1991,92,93,94,95,95,97,98,99,2000,02,03,2004
! ;; Free Software Foundation, Inc.
;; Author: (The PCL-CVS Trust) address@hidden
;; (Per Cederqvist) address@hidden
--- 1,7 ----
;;; pcvs.el --- a front-end to CVS
! ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
! ;; 2000, 2002, 2003, 2004 Free Software Foundation, Inc.
;; Author: (The PCL-CVS Trust) address@hidden
;; (Per Cederqvist) address@hidden
***************
*** 923,928 ****
--- 923,943 ----
(append flags modules) nil 'new
:noexist t))
+ (defun-cvs-mode (cvs-mode-checkout . NOARGS) (dir)
+ "Run cvs checkout against the current branch.
+ The files are stored to DIR."
+ (interactive
+ (let* ((branch (cvs-prefix-get 'cvs-branch-prefix))
+ (prompt (format "CVS Checkout Directory for `%s%s': "
+ (cvs-get-module)
+ (if branch (format " (branch: %s)" branch)
+ ""))))
+ (list (read-directory-name prompt nil default-directory nil))))
+ (let ((modules (cvs-string->strings (cvs-get-module)))
+ (flags (cvs-add-branch-prefix
+ (cvs-flags-query 'cvs-checkout-flags "cvs checkout flags")))
+ (cvs-cvsroot (cvs-get-cvsroot)))
+ (cvs-checkout modules dir flags)))
;;;;
;;;; The code for running a "cvs update" and friends in various ways.
***************
*** 2353,2357 ****
(provide 'pcvs)
! ;;; arch-tag: 8e3a7494-0453-4389-9ab3-a557ce9fab61
;;; pcvs.el ends here
--- 2368,2372 ----
(provide 'pcvs)
! ;; arch-tag: 8e3a7494-0453-4389-9ab3-a557ce9fab61
;;; pcvs.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/pcvs.el [lexbind],
Miles Bader <=