[Emacs-diffs] Changes to emacs/lisp/cvs-status.el [lexbind]

[Miles Bader]

Index: emacs/lisp/cvs-status.el
diff -c emacs/lisp/cvs-status.el:1.13.4.5 emacs/lisp/cvs-status.el:1.13.4.6
*** emacs/lisp/cvs-status.el:1.13.4.5   Tue Jul  6 09:31:47 2004
--- emacs/lisp/cvs-status.el    Sat Sep  4 09:26:22 2004
***************
*** 31,36 ****
--- 31,37 ----
  ;;; Code:
  
  (eval-when-compile (require 'cl))
+ (eval-when-compile (require 'pcvs))
  (require 'pcvs-util)
  
  ;;;
***************
*** 48,54 ****
      ("\M-n"   . cvs-status-next)
      ("\M-p"   . cvs-status-prev)
      ("t"      . cvs-status-cvstrees)
!     ("T"      . cvs-status-trees))
    "CVS-Status' keymap."
    :group 'cvs-status
    :inherit 'cvs-mode-map)
--- 49,56 ----
      ("\M-n"   . cvs-status-next)
      ("\M-p"   . cvs-status-prev)
      ("t"      . cvs-status-cvstrees)
!     ("T"      . cvs-status-trees)
!     (">"        . cvs-status-checkout))
    "CVS-Status' keymap."
    :group 'cvs-status
    :inherit 'cvs-mode-map)
***************
*** 464,469 ****
--- 466,490 ----
            ;;(sit-for 0)
            ))))))
  
+ (defun-cvs-mode (cvs-status-checkout . NOARGS) (dir)
+   "Run cvs-checkout against the tag under the point.
+ The files are stored to DIR."
+   (interactive 
+    (let* ((module (cvs-get-module))
+         (branch (cvs-prefix-get 'cvs-branch-prefix))
+         (prompt (format "CVS Checkout Directory for `%s%s': " 
+                        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)))
+ 
  (defun cvs-tree-tags-insert (tags prev)
    (when tags
      (let* ((tag (car tags))