[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
texinfo/tp/Texinfo Structuring.pm
From: |
Patrice Dumas |
Subject: |
texinfo/tp/Texinfo Structuring.pm |
Date: |
Thu, 30 Jun 2011 23:42:37 +0000 |
CVSROOT: /sources/texinfo
Module name: texinfo
Changes by: Patrice Dumas <pertusus> 11/06/30 23:42:37
Modified files:
tp/Texinfo : Structuring.pm
Log message:
Don't return an element if the command is not a node (float or anchor).
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Structuring.pm?cvsroot=texinfo&r1=1.63&r2=1.64
Patches:
Index: Structuring.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Structuring.pm,v
retrieving revision 1.63
retrieving revision 1.64
diff -u -b -r1.63 -r1.64
--- Structuring.pm 7 Jun 2011 23:23:17 -0000 1.63
+++ Structuring.pm 30 Jun 2011 23:42:37 -0000 1.64
@@ -650,8 +650,11 @@
if ($node->{'extra'} and $node->{'extra'}->{'manual_content'}) {
return _new_external_node($node->{'extra'}->{'node_content'},
$node->{'extra'}->{'manual_content'});
- } else {
+ } elsif ($node->{'cmdname'} and $node->{'cmdname'} eq 'node') {
return $node->{'parent'};
+ } else {
+ #Â case of a @float or an @anchor
+ return undef;
}
}