From 1d9195a85f1f745b6bdad46ecadb116f60d0bf0d Mon Sep 17 00:00:00 2001 From: "Paul A. Patience" Date: Tue, 8 Feb 2022 11:39:38 +0000 Subject: 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. --- stdlib/getopts.tl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'stdlib') 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*)) -- cgit v1.2.3