/[emacs]/emacs/lisp/cvs-status.el
ViewVC logotype

Diff of /emacs/lisp/cvs-status.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by lektu, Fri May 28 19:07:57 2004 UTC revision 1.18.2.1 by miles, Sat Sep 4 12:01:07 2004 UTC
# Line 31  Line 31 
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  ;;;  ;;;
# Line 48  Line 49 
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)
# Line 464  Optional prefix ARG chooses between two Line 466  Optional prefix ARG chooses between two
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))

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.18.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26