mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(cvs-checkout): Prompt for cvsroot as well.

Browse Source
This commit is contained in:
Stefan Monnier 2005-04-03 21:18:51 +00:00
parent 0c0a9c995c
commit 59bb94103a
2 changed files with 20 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2005-04-03 Stefan Monnier <monnier@iro.umontreal.ca>
* pcvs.el (cvs-checkout): Prompt for cvsroot as well.
2005-04-03 Glenn Morris <gmorris@ast.cam.ac.uk>
* filesets.el (filesets-set-default): Doc fix.
@ -7,7 +11,7 @@
* generic.el (define-generic-mode): Add argument to specify
keywords for defcustom.
(default-generic-mode): Specify :group.
* generic-x.el: Specify :group for all generic modes.
* desktop.el (desktop-no-desktop-file-hook)
@ -7425,8 +7429,7 @@
2004-09-21 Kenichi Handa <handa@m17n.org>
* descr-text.el (describe-char): Checking of quail activation
fixed.
* descr-text.el (describe-char): Checking of quail activation fixed.
2004-09-21 Jay Belanger <belanger@truman.edu>

23
lisp/pcvs.el
View File

@ -918,23 +918,28 @@ This usually doesn't really work but is a handy initval in a prompt."
;;;;
;;;###autoload
(defun cvs-checkout (modules dir flags)
(defun cvs-checkout (modules dir flags &optional root)
"Run a 'cvs checkout MODULES' in DIR.
Feed the output to a *cvs* buffer, display it in the current window,
and run `cvs-mode' on it.
With a prefix argument, prompt for cvs FLAGS to use."
(interactive
(list (cvs-string->strings (read-string "Module(s): " (cvs-get-module)))
(read-directory-name "CVS Checkout Directory: "
nil default-directory nil)
(cvs-add-branch-prefix
(cvs-flags-query 'cvs-checkout-flags "cvs checkout flags"))))
(let ((root (cvs-get-cvsroot)))
(if (or (null root) current-prefix-arg)
(setq root (read-string "CVS Root: ")))
(list (cvs-string->strings (read-string "Module(s): " (cvs-get-module)))
(read-directory-name "CVS Checkout Directory: "
nil default-directory nil)
(cvs-add-branch-prefix
(cvs-flags-query 'cvs-checkout-flags "cvs checkout flags"))
root)))
(when (eq flags t)
(setf flags (cvs-flags-query 'cvs-checkout-flags nil 'noquery)))
(cvs-cmd-do "checkout" (or dir default-directory)
(append flags modules) nil 'new
:noexist t))
(let ((cvs-cvsroot root))
(cvs-cmd-do "checkout" (or dir default-directory)
(append flags modules) nil 'new
:noexist t)))
(defun-cvs-mode (cvs-mode-checkout . NOARGS) (dir)
"Run cvs checkout against the current branch.