diff options
| author | Paul A. Patience <paul@apatience.com> | 2022-02-08 11:39:38 +0000 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-02-08 08:08:24 -0800 |
| commit | e899fd459bd5b93c9fc5e80d67bcbe8282966d37 (patch) | |
| tree | 754da4349a8e77d23ddfc54e6a325b8a586e13c5 | |
| parent | fc241d567c913547d874d0403048d8f7f2283d13 (diff) | |
| download | txr-e899fd459bd5b93c9fc5e80d67bcbe8282966d37.tar.gz txr-e899fd459bd5b93c9fc5e80d67bcbe8282966d37.tar.bz2 txr-e899fd459bd5b93c9fc5e80d67bcbe8282966d37.zip | |
getopts: conform undocumented opts to documented.
* stdlib/getopts.tl (opthelp): Indent the list of undocumented
options by only two spaces, like the documented options and the
other opthelp sections.
| -rw-r--r-- | stdlib/getopts.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/getopts.tl b/stdlib/getopts.tl index bb3f394b..87b060e4 100644 --- a/stdlib/getopts.tl +++ b/stdlib/getopts.tl @@ -305,8 +305,8 @@ (let* ((undoc-str `@{[mapcar sys:opt-dash (flatten (mappend (op list @1.short @1.long) undocumented))] ", "}`)) - (each ((line (sys:wdwrap undoc-str 75))) - (put-line ` @line`))) + (each ((line (sys:wdwrap undoc-str 77))) + (put-line ` @line`))) (put-line)))) (defun opthelp-conventions (opt-desc-list : (*stdout* *stdout*)) |