Mercurial > emacs

comparison lisp/pcvs.el @ 90140:02f1dbc4a199

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-35 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 228-240) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 53-58) - Merge from emacs--cvs-trunk--0 - Update from CVS - Collapse feature addition/removal within single ChangeLog entry
author Miles Bader <miles@gnu.org>
date Sat, 09 Apr 2005 02:16:29 +0000
parents 7a3341d65a12 b8fb5fb4b960
children 08185296b491
comparison
equal deleted inserted replaced
90139:e0d294b9b23e 90140:02f1dbc4a199
916 ;;;; 916 ;;;;
917 ;;;; running a "cvs checkout". 917 ;;;; running a "cvs checkout".
918 ;;;; 918 ;;;;
919 919
920 ;;;###autoload 920 ;;;###autoload
921 (defun cvs-checkout (modules dir flags) 921 (defun cvs-checkout (modules dir flags &optional root)
922 "Run a 'cvs checkout MODULES' in DIR. 922 "Run a 'cvs checkout MODULES' in DIR.
923 Feed the output to a *cvs* buffer, display it in the current window, 923 Feed the output to a *cvs* buffer, display it in the current window,
924 and run `cvs-mode' on it. 924 and run `cvs-mode' on it.
925 925
926 With a prefix argument, prompt for cvs FLAGS to use." 926 With a prefix argument, prompt for cvs FLAGS to use."
927 (interactive 927 (interactive
928 (list (cvs-string->strings (read-string "Module(s): " (cvs-get-module))) 928 (let ((root (cvs-get-cvsroot)))
929 (read-directory-name "CVS Checkout Directory: " 929 (if (or (null root) current-prefix-arg)
930 nil default-directory nil) 930 (setq root (read-string "CVS Root: ")))
931 (cvs-add-branch-prefix 931 (list (cvs-string->strings (read-string "Module(s): " (cvs-get-module)))
932 (cvs-flags-query 'cvs-checkout-flags "cvs checkout flags")))) 932 (read-directory-name "CVS Checkout Directory: "
933 nil default-directory nil)
934 (cvs-add-branch-prefix
935 (cvs-flags-query 'cvs-checkout-flags "cvs checkout flags"))
936 root)))
933 (when (eq flags t) 937 (when (eq flags t)
934 (setf flags (cvs-flags-query 'cvs-checkout-flags nil 'noquery))) 938 (setf flags (cvs-flags-query 'cvs-checkout-flags nil 'noquery)))
935 (cvs-cmd-do "checkout" (or dir default-directory) 939 (let ((cvs-cvsroot root))
936 (append flags modules) nil 'new 940 (cvs-cmd-do "checkout" (or dir default-directory)
937 :noexist t)) 941 (append flags modules) nil 'new
942 :noexist t)))
938 943
939 (defun-cvs-mode (cvs-mode-checkout . NOARGS) (dir) 944 (defun-cvs-mode (cvs-mode-checkout . NOARGS) (dir)
940 "Run cvs checkout against the current branch. 945 "Run cvs checkout against the current branch.
941 The files are stored to DIR." 946 The files are stored to DIR."
942 (interactive 947 (interactive