[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[7874] parsetexi fix IGNORE_BEFORE_SETFILENAME
From: |
gavinsmith0123 |
Subject: |
[7874] parsetexi fix IGNORE_BEFORE_SETFILENAME |
Date: |
Wed, 28 Jun 2017 17:49:24 -0400 (EDT) |
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. */
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [7874] parsetexi fix IGNORE_BEFORE_SETFILENAME,
gavinsmith0123 <=