texinfo-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

branch master updated: * tp/Texinfo/Convert/Texinfo.pm (root_heading_com


From: Patrice Dumas
Subject: branch master updated: * tp/Texinfo/Convert/Texinfo.pm (root_heading_command_to_texinfo): show node name as it appeared in the document.
Date: Mon, 14 Nov 2022 17:02:50 -0500

This is an automated email from the git hooks/post-receive script.

pertusus pushed a commit to branch master
in repository texinfo.

The following commit(s) were added to refs/heads/master by this push:
     new a35dab01ec * tp/Texinfo/Convert/Texinfo.pm 
(root_heading_command_to_texinfo): show node name as it appeared in the 
document.
a35dab01ec is described below

commit a35dab01eca6d2e80b058aaa9c44d0724b25b12e
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Mon Nov 14 23:02:43 2022 +0100

    * tp/Texinfo/Convert/Texinfo.pm (root_heading_command_to_texinfo):
    show node name as it appeared in the document.
---
 ChangeLog                     | 5 +++++
 tp/Texinfo/Convert/Texinfo.pm | 7 +++----
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index f9b4151807..7b99703ffc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2022-11-14  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/Texinfo/Convert/Texinfo.pm (root_heading_command_to_texinfo):
+       show node name as it appeared in the document.
+
 2022-11-14  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/Convert/HTML.pm (special_element_info)
diff --git a/tp/Texinfo/Convert/Texinfo.pm b/tp/Texinfo/Convert/Texinfo.pm
index aead5b4e7d..8f48951f7c 100644
--- a/tp/Texinfo/Convert/Texinfo.pm
+++ b/tp/Texinfo/Convert/Texinfo.pm
@@ -80,10 +80,9 @@ sub root_heading_command_to_texinfo($)
   my $element = shift;
   my $tree;
   if ($element->{'cmdname'}) {
-    if ($element->{'cmdname'} eq 'node') {
-      $tree = $element->{'extra'}->{'node_content'};
-    } elsif ($sectioning_heading_commands{$element->{'cmdname'}}
-             and $element->{'args'}->[0]->{'contents'}) {
+    if (($element->{'cmdname'} eq 'node'
+         or $sectioning_heading_commands{$element->{'cmdname'}})
+        and $element->{'args'}->[0]->{'contents'}) {
       $tree = $element->{'args'}->[0]->{'contents'};
     }
   } else {



reply via email to

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