aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2005-07-20 20:51:27 +0000
committerJuanma Barranquero2005-07-20 20:51:27 +0000
commite05a39ba98ab9d4de28e21704b1555fac9aae744 (patch)
treec45012c63f245896b750843c4a27fe169c2e072a
parent0d5f604633b0d512d96923a20f2401aba43e2932 (diff)
downloademacs-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.el6
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 \" \").
189This tries to quote the strings to avoid ambiguity such that 189This 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
191Only some SEPARATOR will work properly." 191Only 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.
280Optional argument DESC will be used for the prompt 280Optional argument DESC will be used for the prompt.
281If ARG (or a prefix argument) is nil, just use the 0th default. 281If ARG (or a prefix argument) is nil, just use the 0th default.
282If it is a non-negative integer, use the corresponding default. 282If it is a non-negative integer, use the corresponding default.
283If it is a negative integer query for a new value of the corresponding 283If 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.
385and reset it unless READ-ONLY is non-nil." 385And 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))))