texinfo-commits
[Top][All Lists]
Advanced

[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);




reply via email to

[Prev in Thread] Current Thread [Next in Thread]