From 6dfa232e729bf5c714f34340de4050d6b7f006cf Mon Sep 17 00:00:00 2001
From: Kris Katterjohn <katterjohn@gmail.com>
Date: Sun, 12 Mar 2017 19:37:15 -0500
Subject: [PATCH] Fix whitespace issues in stepper help output [2/3]

Realign so that "[Stepper command]" and "[Abbreviation]" are lined
up with each other and with the break, help and toplevel commands.
---
 src/lsp/trace.lsp | 46 +++++++++++++++++++++++-----------------------
 1 file changed, 23 insertions(+), 23 deletions(-)

diff --git a/src/lsp/trace.lsp b/src/lsp/trace.lsp
index bc8911809..66d68a731 100644
--- a/src/lsp/trace.lsp
+++ b/src/lsp/trace.lsp
@@ -238,37 +238,37 @@ all functions."
   `("Stepper commands"
      ((:newline) (step-next) :constant
       "newline         Advance to the next form"
-      "newline                                          [Stepper command]~@
-        ~@
-        Step to next form.~%")
+      "newline                                         [Stepper command]~@
+       ~@
+       Step to next form.~%")
      ((:s :skip) step-skip nil
       ":s(kip)         Skip current form or until function"
-      ":skip &optional arg                              [Stepper command]~@
-        :s &optional arg                                [Abbreviation]~@
-        ~@
-        Continue evaluation without stepping.  Without argument, resume
-        stepping after the current form.  With numeric argument (n),
-        resume stepping at the n-th level above.  With function name, resume
-        when given function is called.~%")
+      ":skip &optional arg                             [Stepper command]~@
+       :s &optional arg                                [Abbreviation]~@
+       ~@
+       Continue evaluation without stepping.  Without argument, resume
+       stepping after the current form.  With numeric argument (n),
+       resume stepping at the n-th level above.  With function name, resume
+       when given function is called.~%")
      ((:pr :print) (step-print) :constant
       ":pr(int)        Pretty print current form"
-      ":print                                           [Stepper command]~@
-        :p                                              [Abbreviation]~@
-        ~@
-        Pretty print current form.~%")
+      ":print                                          [Stepper command]~@
+       :p                                              [Abbreviation]~@
+       ~@
+       Pretty print current form.~%")
      ((:form) *step-form* :constant
       ":form           Current form"
-      ":form                                            [Stepper command]~@
-        ~@
-        Return the current form.  Nothing is done, but the current form~@
-        is returned as the value of this command.  As a consequence,~@
-        it is printed by the top level in the usual way and saved in~@
-        the variable *.  The main purpose of this command is to allow~@
-        the current form to be examined further by accessing *.~%")
+      ":form                                           [Stepper command]~@
+       ~@
+       Return the current form.  Nothing is done, but the current form~@
+       is returned as the value of this command.  As a consequence,~@
+       it is printed by the top level in the usual way and saved in~@
+       the variable *.  The main purpose of this command is to allow~@
+       the current form to be examined further by accessing *.~%")
      ((:x :exit) (step-quit) :constant
       ":x or :exit     Finish evaluation and exit stepper"
-      ":exit                                            [Stepper command]~@
-       :x                                               [Abbreviation]~@
+      ":exit                                           [Stepper command]~@
+       :x                                              [Abbreviation]~@
        ~@
        Finish evaluation without stepping.~%")
      ))