31 |
;;; Code: |
;;; Code: |
32 |
|
|
33 |
(eval-when-compile (require 'cl)) |
(eval-when-compile (require 'cl)) |
34 |
|
(eval-when-compile (require 'pcvs)) |
35 |
(require 'pcvs-util) |
(require 'pcvs-util) |
36 |
|
|
37 |
;;; |
;;; |
49 |
("\M-n" . cvs-status-next) |
("\M-n" . cvs-status-next) |
50 |
("\M-p" . cvs-status-prev) |
("\M-p" . cvs-status-prev) |
51 |
("t" . cvs-status-cvstrees) |
("t" . cvs-status-cvstrees) |
52 |
("T" . cvs-status-trees)) |
("T" . cvs-status-trees) |
53 |
|
(">" . cvs-status-checkout)) |
54 |
"CVS-Status' keymap." |
"CVS-Status' keymap." |
55 |
:group 'cvs-status |
:group 'cvs-status |
56 |
:inherit 'cvs-mode-map) |
:inherit 'cvs-mode-map) |
466 |
;;(sit-for 0) |
;;(sit-for 0) |
467 |
)))))) |
)))))) |
468 |
|
|
469 |
|
(defun-cvs-mode (cvs-status-checkout . NOARGS) (dir) |
470 |
|
"Run cvs-checkout against the tag under the point. |
471 |
|
The files are stored to DIR." |
472 |
|
(interactive |
473 |
|
(let* ((module (cvs-get-module)) |
474 |
|
(branch (cvs-prefix-get 'cvs-branch-prefix)) |
475 |
|
(prompt (format "CVS Checkout Directory for `%s%s': " |
476 |
|
module |
477 |
|
(if branch (format "(branch: %s)" branch) |
478 |
|
"")))) |
479 |
|
(list |
480 |
|
(read-directory-name prompt |
481 |
|
nil default-directory nil)))) |
482 |
|
(let ((modules (cvs-string->strings (cvs-get-module))) |
483 |
|
(flags (cvs-add-branch-prefix |
484 |
|
(cvs-flags-query 'cvs-checkout-flags "cvs checkout flags"))) |
485 |
|
(cvs-cvsroot (cvs-get-cvsroot))) |
486 |
|
(cvs-checkout modules dir flags))) |
487 |
|
|
488 |
(defun cvs-tree-tags-insert (tags prev) |
(defun cvs-tree-tags-insert (tags prev) |
489 |
(when tags |
(when tags |
490 |
(let* ((tag (car tags)) |
(let* ((tag (car tags)) |