diff options
| author | Juanma Barranquero | 2005-07-20 20:51:27 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2005-07-20 20:51:27 +0000 |
| commit | e05a39ba98ab9d4de28e21704b1555fac9aae744 (patch) | |
| tree | c45012c63f245896b750843c4a27fe169c2e072a | |
| parent | 0d5f604633b0d512d96923a20f2401aba43e2932 (diff) | |
| download | emacs-e05a39ba98ab9d4de28e21704b1555fac9aae744.tar.gz emacs-e05a39ba98ab9d4de28e21704b1555fac9aae744.zip | |
(cvs-flags-query, cvs-strings->string, cvs-prefix-get): Fix typos in docstrings.
| -rw-r--r-- | lisp/pcvs-util.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/pcvs-util.el b/lisp/pcvs-util.el index 9531f06b3c6..05495d1e264 100644 --- a/lisp/pcvs-util.el +++ b/lisp/pcvs-util.el | |||
| @@ -188,7 +188,7 @@ arguments. If ARGS is not a list, no argument will be passed." | |||
| 188 | "Concatenate the STRINGS, adding the SEPARATOR (default \" \"). | 188 | "Concatenate the STRINGS, adding the SEPARATOR (default \" \"). |
| 189 | This tries to quote the strings to avoid ambiguity such that | 189 | This tries to quote the strings to avoid ambiguity such that |
| 190 | (cvs-string->strings (cvs-strings->string strs)) == strs | 190 | (cvs-string->strings (cvs-strings->string strs)) == strs |
| 191 | Only some SEPARATOR will work properly." | 191 | Only some SEPARATORs will work properly." |
| 192 | (let ((sep (or separator " "))) | 192 | (let ((sep (or separator " "))) |
| 193 | (mapconcat | 193 | (mapconcat |
| 194 | (lambda (str) | 194 | (lambda (str) |
| @@ -277,7 +277,7 @@ The SEPARATOR regexp defaults to \"\\s-+\"." | |||
| 277 | 277 | ||
| 278 | (defun cvs-flags-query (sym &optional desc arg) | 278 | (defun cvs-flags-query (sym &optional desc arg) |
| 279 | "Query flags based on SYM. | 279 | "Query flags based on SYM. |
| 280 | Optional argument DESC will be used for the prompt | 280 | Optional argument DESC will be used for the prompt. |
| 281 | If ARG (or a prefix argument) is nil, just use the 0th default. | 281 | If ARG (or a prefix argument) is nil, just use the 0th default. |
| 282 | If it is a non-negative integer, use the corresponding default. | 282 | If it is a non-negative integer, use the corresponding default. |
| 283 | If it is a negative integer query for a new value of the corresponding | 283 | If it is a negative integer query for a new value of the corresponding |
| @@ -382,7 +382,7 @@ If ARG is nil toggle the PREFIX's value between its 0th default and nil | |||
| 382 | 382 | ||
| 383 | (defun cvs-prefix-get (sym &optional read-only) | 383 | (defun cvs-prefix-get (sym &optional read-only) |
| 384 | "Return the current value of the prefix SYM. | 384 | "Return the current value of the prefix SYM. |
| 385 | and reset it unless READ-ONLY is non-nil." | 385 | And reset it unless READ-ONLY is non-nil." |
| 386 | (prog1 (symbol-value sym) | 386 | (prog1 (symbol-value sym) |
| 387 | (unless (or read-only | 387 | (unless (or read-only |
| 388 | (cvs-flags-persist (symbol-value (cvs-prefix-sym sym)))) | 388 | (cvs-flags-persist (symbol-value (cvs-prefix-sym sym)))) |