188 |
"Concatenate the STRINGS, adding the SEPARATOR (default \" \"). |
"Concatenate the STRINGS, adding the SEPARATOR (default \" \"). |
189 |
This tries to quote the strings to avoid ambiguity such that |
This tries to quote the strings to avoid ambiguity such that |
190 |
(cvs-string->strings (cvs-strings->string strs)) == strs |
(cvs-string->strings (cvs-strings->string strs)) == strs |
191 |
Only some SEPARATOR will work properly." |
Only some SEPARATORs will work properly." |
192 |
(let ((sep (or separator " "))) |
(let ((sep (or separator " "))) |
193 |
(mapconcat |
(mapconcat |
194 |
(lambda (str) |
(lambda (str) |
277 |
|
|
278 |
(defun cvs-flags-query (sym &optional desc arg) |
(defun cvs-flags-query (sym &optional desc arg) |
279 |
"Query flags based on SYM. |
"Query flags based on SYM. |
280 |
Optional argument DESC will be used for the prompt |
Optional argument DESC will be used for the prompt. |
281 |
If ARG (or a prefix argument) is nil, just use the 0th default. |
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. |
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 |
If it is a negative integer query for a new value of the corresponding |
382 |
|
|
383 |
(defun cvs-prefix-get (sym &optional read-only) |
(defun cvs-prefix-get (sym &optional read-only) |
384 |
"Return the current value of the prefix SYM. |
"Return the current value of the prefix SYM. |
385 |
and reset it unless READ-ONLY is non-nil." |
And reset it unless READ-ONLY is non-nil." |
386 |
(prog1 (symbol-value sym) |
(prog1 (symbol-value sym) |
387 |
(unless (or read-only |
(unless (or read-only |
388 |
(cvs-flags-persist (symbol-value (cvs-prefix-sym sym)))) |
(cvs-flags-persist (symbol-value (cvs-prefix-sym sym)))) |