summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPaul A. Patience <paul@apatience.com>2022-02-08 11:39:38 +0000
committerKaz Kylheku <kaz@kylheku.com>2022-02-08 08:08:24 -0800
commit1d9195a85f1f745b6bdad46ecadb116f60d0bf0d (patch)
tree754da4349a8e77d23ddfc54e6a325b8a586e13c5
parent587194b81ba2da80b5598567914c9ddc9a124208 (diff)
downloadtxr-1d9195a85f1f745b6bdad46ecadb116f60d0bf0d.tar.gz
txr-1d9195a85f1f745b6bdad46ecadb116f60d0bf0d.tar.bz2
txr-1d9195a85f1f745b6bdad46ecadb116f60d0bf0d.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.tl4
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*))