[8386] remove ctrl

[gavinsmith0123]

Revision: 8386
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=8386
Author:   gavin
Date:     2018-10-23 18:07:04 -0400 (Tue, 23 Oct 2018)
Log Message:
-----------
remove ctrl

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/Texinfo/Parser.pm

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2018-10-23 21:32:21 UTC (rev 8385)
+++ trunk/ChangeLog     2018-10-23 22:07:04 UTC (rev 8386)
@@ -1,3 +1,8 @@
+2018-10-23  Gavin Smith  <address@hidden>
+
+       * tp/Texinfo/Parser.pm (%simple_text_commands): Remove @ctrl.
+       (_end_line): Change a comment.
+
 2018-10-22  Gavin Smith  <address@hidden>
 
        * tp/Texinfo/Parser.pm,

Modified: trunk/tp/Texinfo/Parser.pm
===================================================================
--- trunk/tp/Texinfo/Parser.pm  2018-10-23 21:32:21 UTC (rev 8385)
+++ trunk/tp/Texinfo/Parser.pm  2018-10-23 22:07:04 UTC (rev 8386)
@@ -432,7 +432,7 @@
 foreach my $command ('titlefont', 'anchor', 'xref','ref', 'pxref', 
                      'inforef', 'shortcaption', 'math', 'indicateurl',
                      'email', 'uref', 'url', 'image', 'abbr', 'acronym', 
-                     'dmn', 'ctrl', 'errormsg', 'U') {
+                     'dmn', 'errormsg', 'U') {
   $simple_text_commands{$command} = 1;
 }
 
@@ -3154,7 +3154,7 @@
             push @{$self->{'context_stack'}}, 'preformatted';
           }
         } else {
-          #print STDERR "LLLLLLLLLLLL Cannot be here...\n";
+          # block command not found for @end
         }
         $current = _begin_preformatted($self, $current)
           if ($close_preformatted_commands{$end_command});