[6060] parsetexi minor fixes

[Gavin D. Smith]

Revision: 6060
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=6060
Author:   gavin
Date:     2015-01-23 17:27:14 +0000 (Fri, 23 Jan 2015)
Log Message:
-----------
parsetexi minor fixes

Modified Paths:
--------------
    trunk/parsetexi/ChangeLog
    trunk/parsetexi/Parsetexi/lib/Parsetexi.pm
    trunk/parsetexi/end_line.c

Modified: trunk/parsetexi/ChangeLog
===================================================================
--- trunk/parsetexi/ChangeLog   2015-01-23 17:18:57 UTC (rev 6059)
+++ trunk/parsetexi/ChangeLog   2015-01-23 17:27:14 UTC (rev 6060)
@@ -1,5 +1,11 @@
 2015-01-23  Gavin Smith  <address@hidden>
 
+       * Parsetexi/lib/Parsetexi.pm: Update a comment.
+       * end_line.c (end_line): Check return value of lookup_command 
+       correctly.
+
+2015-01-23  Gavin Smith  <address@hidden>
+
        * tree_types.h (enum extra_type): Add extra_string value.
        * extra.c (add_extra_string): New function.
        * dump_perl.c (dump_extra) <extra_string>: Support.

Modified: trunk/parsetexi/Parsetexi/lib/Parsetexi.pm
===================================================================
--- trunk/parsetexi/Parsetexi/lib/Parsetexi.pm  2015-01-23 17:18:57 UTC (rev 
6059)
+++ trunk/parsetexi/Parsetexi/lib/Parsetexi.pm  2015-01-23 17:27:14 UTC (rev 
6060)
@@ -109,17 +109,18 @@
 # Stub for Texinfo::Parser::parser (line 574)
 sub parser (;$$)
 {
-  # None of these are implemented yet.
   my %parser_blanks = (
     'labels' => {},
-    'floats' => {},
-    'internal_references' => [],
     'extra' => {},
     'info' => {},
     'index_names' => {},
     'merged_indices' => {},
     'nodes' => [],
 
+    # These aren't implemented yet.
+    'floats' => {},
+    'internal_references' => [],
+
     # Not used but present in case we pass the object into 
     # Texinfo::Parser.
     'conditionals_stack' => [],

Modified: trunk/parsetexi/end_line.c
===================================================================
--- trunk/parsetexi/end_line.c  2015-01-23 17:18:57 UTC (rev 6059)
+++ trunk/parsetexi/end_line.c  2015-01-23 17:27:14 UTC (rev 6060)
@@ -591,7 +591,7 @@
 
                   /* Check if argument is a block Texinfo command. */
                   end_id = lookup_command (end_command);
-                  if (end_id == -1 || !(command_data(end_id).flags & CF_block))
+                  if (end_id == 0 || !(command_data(end_id).flags & CF_block))
                     {
                       /* error - unknown @end */
                     }