[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/pcvs.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/pcvs.el |
Date: |
Sun, 03 Apr 2005 17:18:53 -0400 |
Index: emacs/lisp/pcvs.el
diff -c emacs/lisp/pcvs.el:1.78 emacs/lisp/pcvs.el:1.79
*** emacs/lisp/pcvs.el:1.78 Fri Apr 1 18:01:55 2005
--- emacs/lisp/pcvs.el Sun Apr 3 21:18:51 2005
***************
*** 918,940 ****
;;;;
;;;###autoload
! (defun cvs-checkout (modules dir flags)
"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"))))
(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))
(defun-cvs-mode (cvs-mode-checkout . NOARGS) (dir)
"Run cvs checkout against the current branch.
--- 918,945 ----
;;;;
;;;###autoload
! (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
! (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)))
! (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.