From: Eric Wong <e@80x24.org>
Date: Wed, 3 Feb 2021 08:11:40 +0000 (-1000)
Subject: lei: help starts pager
X-Git-Tag: v1.7.0~1224
X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=commitdiff_plain;h=36ee63d30ee076e6f6a8fdeabd50bf6757a3fdd6

lei: help starts pager

Because some commands have many options which take up
multiple screens.
---

diff --git a/lib/PublicInbox/LEI.pm b/lib/PublicInbox/LEI.pm
index 3cb7a327..005f6f7a 100644
--- a/lib/PublicInbox/LEI.pm
+++ b/lib/PublicInbox/LEI.pm
@@ -507,7 +507,9 @@ EOF
 		$msg .= $rhs;
 		$msg .= "\n";
 	}
-	print { $self->{$errmsg ? 2 : 1} } $msg;
+	my $out = $self->{$errmsg ? 2 : 1};
+	start_pager($self) if -t $out;
+	print $out $msg;
 	x_it($self, $errmsg ? 1 << 8 : 0); # stderr => failure
 	undef;
 }