893 |
With a prefix argument, prompt for cvs FLAGS to use." |
With a prefix argument, prompt for cvs FLAGS to use." |
894 |
(interactive |
(interactive |
895 |
(list (cvs-string->strings (read-string "Module(s): " (cvs-get-module))) |
(list (cvs-string->strings (read-string "Module(s): " (cvs-get-module))) |
896 |
(read-file-name "CVS Checkout Directory: " |
(read-directory-name "CVS Checkout Directory: " |
897 |
nil default-directory nil) |
nil default-directory nil) |
898 |
(cvs-add-branch-prefix |
(cvs-add-branch-prefix |
899 |
(cvs-flags-query 'cvs-checkout-flags "cvs checkout flags")))) |
(cvs-flags-query 'cvs-checkout-flags "cvs checkout flags")))) |
920 |
(not current-prefix-arg) |
(not current-prefix-arg) |
921 |
(not (eq last-command-char ?\r))) |
(not (eq last-command-char ?\r))) |
922 |
default-directory |
default-directory |
923 |
(read-file-name msg nil default-directory nil))) |
(read-directory-name msg nil default-directory nil))) |
924 |
|
|
925 |
;;;###autoload |
;;;###autoload |
926 |
(defun cvs-quickdir (dir &optional flags noshow) |
(defun cvs-quickdir (dir &optional flags noshow) |