/[emacs]/emacs/lisp/pcvs-util.el
ViewVC logotype

Diff of /emacs/lisp/pcvs-util.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.25 by lute, Mon Jul 4 23:08:56 2005 UTC revision 1.26 by lektu, Wed Jul 20 20:51:27 2005 UTC
# Line 188  arguments.  If ARGS is not a list, no ar Line 188  arguments.  If ARGS is not a list, no ar
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)
# Line 277  The SEPARATOR regexp defaults to \"\\s-+ Line 277  The SEPARATOR regexp defaults to \"\\s-+
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
# Line 382  If ARG is nil toggle the PREFIX's value Line 382  If ARG is nil toggle the PREFIX's value
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))))

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26