Parent Directory | Revision Log | Patch
revision 1.14 by monnier, Wed Oct 3 20:28:01 2001 UTC | revision 1.15 by monnier, Sat Nov 17 00:48:14 2001 UTC | |
---|---|---|
# | Line 350 If it is \\[universal-argument] \\[unive | Line 350 If it is \\[universal-argument] \\[unive |
350 | `(progn | `(progn |
351 | (defvar ,sym nil ,(concat (or docstring "") " | (defvar ,sym nil ,(concat (or docstring "") " |
352 | See `cvs-prefix-set' for further description of the behavior.")) | See `cvs-prefix-set' for further description of the behavior.")) |
353 | (defconst ,cps | (defvar ,cps |
354 | (let ((defaults ,defaults)) | (let ((defaults ,defaults)) |
355 | ;; sanity ensurance | ;; sanity ensurance |
356 | (unless (>= (length defaults) cvs-prefix-number) | (unless (>= (length defaults) cvs-prefix-number) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |