[7874] parsetexi fix IGNORE_BEFORE_SETFILENAME

[gavinsmith0123]

Revision: 7874
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7874
Author:   gavin
Date:     2017-06-28 17:49:23 -0400 (Wed, 28 Jun 2017)
Log Message:
-----------
parsetexi fix IGNORE_BEFORE_SETFILENAME

Modified Paths:
--------------
    trunk/tp/parsetexi/Parsetexi.pm
    trunk/tp/parsetexi/tree_types.h

Modified: trunk/tp/parsetexi/Parsetexi.pm
===================================================================
--- trunk/tp/parsetexi/Parsetexi.pm     2017-06-28 21:30:58 UTC (rev 7873)
+++ trunk/tp/parsetexi/Parsetexi.pm     2017-06-28 21:49:23 UTC (rev 7874)
@@ -313,7 +313,8 @@
 
   # The non-XS Perl code checks $self->{'extra'}->{'setfilename'}, which
   # would be set in _register_global_command.
-  if ($self->{'IGNORE_BEFORE_SETFILENAME'} and $text_root) {
+  if ($self->{'IGNORE_BEFORE_SETFILENAME'} and $text_root
+      and $self->{'extra'}->{'setfilename'}) {
     my $before_setfilename = {'type' => 'preamble_before_setfilename',
       'parent' => $text_root,
       'contents' => []};

Modified: trunk/tp/parsetexi/tree_types.h
===================================================================
--- trunk/tp/parsetexi/tree_types.h     2017-06-28 21:30:58 UTC (rev 7873)
+++ trunk/tp/parsetexi/tree_types.h     2017-06-28 21:49:23 UTC (rev 7874)
@@ -1,4 +1,4 @@
-/* Copyright 2010, 2011, 2012, 2013, 2014, 2015, 2016
+/* Copyright 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017
    Free Software Foundation, Inc.
 
    This program is free software: you can redistribute it and/or modify
@@ -188,7 +188,6 @@
 
     /* content->contents is the index entry text */
     ELEMENT *content;
-    /* content_normalized */
     ELEMENT *command;
     ELEMENT *node;
     int number; /* Index of entry in containing index, 1-based. */