Make the TAB key tab. Under syscons, shift-TAB also performs a backtab.

3 files changed, 8 insertions, 0 deletions

diff --git a/usr.bin/more/default.morerc b/usr.bin/more/default.morerc
index 65f6db57c8cd..0a83ebf8a502 100644
--- a/usr.bin/more/default.morerc
+++ b/usr.bin/more/default.morerc
@@ -94,6 +94,10 @@ macro 0 d	'eval ${com_sethalfscroll}; forw_scroll ${half_scroll}'
 macro 0 ""	'eval ${com_sethalfscroll}; forw_scroll ${half_scroll}'
 macro 0 u	'eval ${com_sethalfscroll}; back_scroll ${half_scroll}'
 macro 0 ""	'eval ${com_sethalfscroll}; back_scroll ${half_scroll}'
+# An argument can be made that we should move by whatever tab was set to
+# using the -x argument to more(1)
+macro 1 "\t"	'rscroll (${number} * 8)'
+macro 1 ''	'lscroll (${number} * 8)'
 set com_rscroll	'condition (${number} != 0);  \
          	   set lsthscr ${number};     \
          	 condition true;              \
diff --git a/usr.bin/more/more.1 b/usr.bin/more/more.1
index dc78923343f8..d9383a5682cc 100644
--- a/usr.bin/more/more.1
+++ b/usr.bin/more/more.1
@@ -187,6 +187,9 @@ screen is cannot be scrolled leftwards.
 .It Ic RIGHT-ARROW
 Turn off line-wrapping or scroll rightwards N columns, default 1,
 if line wrapping is already off.
+.It Ic TAB
+Turn off line-wrapping or scroll rightwards N * 8 columns, default 8,
+if line-wrapping is already off.
 .It Ic HOME
 Toggle horizontal scrolling and associated line-wrapping on and off.
 .It Ic d No or Ic \&^D
diff --git a/usr.bin/more/more.help b/usr.bin/more/more.help
index b59ca44f1286..1fdaf9247c0f 100644
--- a/usr.bin/more/more.help
+++ b/usr.bin/more/more.help
@@ -14,6 +14,7 @@
   G            * Go to line N, default the end of the file.
   p, %         * Position to N percent into the file.
   HOME           Toggle horizontal scroll and line-wrap on and off
+  tab          * Tab N x 8 columns to the right
 
   r, ^L          Repaint screen.
   R              Repaint screen, discarding buffered input.