944 |
(defun-cvs-mode (cvs-mode-checkout . NOARGS) (dir) |
(defun-cvs-mode (cvs-mode-checkout . NOARGS) (dir) |
945 |
"Run cvs checkout against the current branch. |
"Run cvs checkout against the current branch. |
946 |
The files are stored to DIR." |
The files are stored to DIR." |
947 |
(interactive |
(interactive |
948 |
(let* ((branch (cvs-prefix-get 'cvs-branch-prefix)) |
(let* ((branch (cvs-prefix-get 'cvs-branch-prefix)) |
949 |
(prompt (format "CVS Checkout Directory for `%s%s': " |
(prompt (format "CVS Checkout Directory for `%s%s': " |
950 |
(cvs-get-module) |
(cvs-get-module) |
951 |
(if branch (format " (branch: %s)" branch) |
(if branch (format " (branch: %s)" branch) |
952 |
"")))) |
"")))) |
1123 |
("->" cvs-secondary-branch-prefix)))) |
("->" cvs-secondary-branch-prefix)))) |
1124 |
" " cvs-mode-line-process)) |
" " cvs-mode-line-process)) |
1125 |
(if buffer-file-name |
(if buffer-file-name |
1126 |
(error "Use M-x cvs-quickdir to get a *cvs* buffer.")) |
(error "Use M-x cvs-quickdir to get a *cvs* buffer")) |
1127 |
(buffer-disable-undo) |
(buffer-disable-undo) |
1128 |
;;(set (make-local-variable 'goal-column) cvs-cursor-column) |
;;(set (make-local-variable 'goal-column) cvs-cursor-column) |
1129 |
(set (make-local-variable 'revert-buffer-function) 'cvs-mode-revert-buffer) |
(set (make-local-variable 'revert-buffer-function) 'cvs-mode-revert-buffer) |