diff options
| author | Stefan Monnier | 2003-03-19 14:34:24 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-03-19 14:34:24 +0000 |
| commit | 7b004f77e26746c5eba9e0eb14f8be76cb2f0c1a (patch) | |
| tree | 86162286fe1bc4f73cef6078b644c7fc6fd8d1e7 | |
| parent | 41a3c7b0279b3708a1cbd10803d94fa1d39bb972 (diff) | |
| download | emacs-7b004f77e26746c5eba9e0eb14f8be76cb2f0c1a.tar.gz emacs-7b004f77e26746c5eba9e0eb14f8be76cb2f0c1a.zip | |
(cvs-mode-tag): Docstring improvement.
| -rw-r--r-- | lisp/pcvs.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/pcvs.el b/lisp/pcvs.el index a1ff378bd57..840e39c037e 100644 --- a/lisp/pcvs.el +++ b/lisp/pcvs.el | |||
| @@ -14,7 +14,7 @@ | |||
| 14 | ;; (Jari Aalto+mail.emacs) jari.aalto@poboxes.com | 14 | ;; (Jari Aalto+mail.emacs) jari.aalto@poboxes.com |
| 15 | ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu | 15 | ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu |
| 16 | ;; Keywords: CVS, version control, release management | 16 | ;; Keywords: CVS, version control, release management |
| 17 | ;; Revision: $Id: pcvs.el,v 1.48 2003/02/10 21:48:38 monnier Exp $ | 17 | ;; Revision: $Id: pcvs.el,v 1.49 2003/03/16 01:09:05 monnier Exp $ |
| 18 | 18 | ||
| 19 | ;; This file is part of GNU Emacs. | 19 | ;; This file is part of GNU Emacs. |
| 20 | 20 | ||
| @@ -2042,7 +2042,10 @@ With prefix argument, prompt for cvs flags." | |||
| 2042 | (defvar cvs-tag-name "") | 2042 | (defvar cvs-tag-name "") |
| 2043 | (defun-cvs-mode (cvs-mode-tag . SIMPLE) (tag &optional flags) | 2043 | (defun-cvs-mode (cvs-mode-tag . SIMPLE) (tag &optional flags) |
| 2044 | "Run `cvs tag TAG' on all selected files. | 2044 | "Run `cvs tag TAG' on all selected files. |
| 2045 | With prefix argument, prompt for cvs flags." | 2045 | 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." | ||
| 2046 | (interactive | 2049 | (interactive |
| 2047 | (list (setq cvs-tag-name | 2050 | (list (setq cvs-tag-name |
| 2048 | (cvs-query-read cvs-tag-name "Tag name: " cvs-qtypedesc-tag)) | 2051 | (cvs-query-read cvs-tag-name "Tag name: " cvs-qtypedesc-tag)) |