[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[8439] _check_line_directive
From: |
gavinsmith0123 |
Subject: |
[8439] _check_line_directive |
Date: |
Sun, 28 Oct 2018 06:24:49 -0400 (EDT) |
Revision: 8439
http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=8439
Author: gavin
Date: 2018-10-28 06:24:49 -0400 (Sun, 28 Oct 2018)
Log Message:
-----------
_check_line_directive
Modified Paths:
--------------
trunk/ChangeLog
trunk/tp/Texinfo/Parser.pm
Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog 2018-10-27 22:59:13 UTC (rev 8438)
+++ trunk/ChangeLog 2018-10-28 10:24:49 UTC (rev 8439)
@@ -1,3 +1,8 @@
+2018-10-28 Gavin Smith <address@hidden>
+
+ * tp/Texinfo/Parser.pm (_check_line_directive): Fix code for
+ checking if input is coming from a file.
+
2018-10-27 Gavin Smith <address@hidden>
* tp/Texinfo/Parser.pm (_next_text, _new_line): Do not pass
Modified: trunk/tp/Texinfo/Parser.pm
===================================================================
--- trunk/tp/Texinfo/Parser.pm 2018-10-27 22:59:13 UTC (rev 8438)
+++ trunk/tp/Texinfo/Parser.pm 2018-10-28 10:24:49 UTC (rev 8439)
@@ -3408,7 +3408,8 @@
my ($self, $line, $line_nr) = @_;
if ($self->{'CPP_LINE_DIRECTIVES'}
- and defined($line_nr->{'name'})
+ and defined($line_nr->{'file_name'})
+ and $line_nr->{'file_name'} ne ''
and !$line_nr->{'macro'}
and $line =~ /^\s*#\s*(line)? (\d+)(( "([^"]+)")(\s+\d+)*)?\s*$/) {
_save_line_directive ($self, $2, $5);
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [8439] _check_line_directive,
gavinsmith0123 <=