2042 |
(defvar cvs-tag-name "") |
(defvar cvs-tag-name "") |
2043 |
(defun-cvs-mode (cvs-mode-tag . SIMPLE) (tag &optional flags) |
(defun-cvs-mode (cvs-mode-tag . SIMPLE) (tag &optional flags) |
2044 |
"Run `cvs tag TAG' on all selected files. |
"Run `cvs tag TAG' on all selected files. |
2045 |
With prefix argument, prompt for cvs flags." |
With prefix argument, prompt for cvs flags. |
2046 |
|
By default this can only be used on directories. |
2047 |
|
Use \\[cvs-mode-force-command] or change `cvs-force-dir-tag' if you need |
2048 |
|
to use it on individual files." |
2049 |
(interactive |
(interactive |
2050 |
(list (setq cvs-tag-name |
(list (setq cvs-tag-name |
2051 |
(cvs-query-read cvs-tag-name "Tag name: " cvs-qtypedesc-tag)) |
(cvs-query-read cvs-tag-name "Tag name: " cvs-qtypedesc-tag)) |