branch master updated: @link for DocBook

[Gavin D. Smith]

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

gavin pushed a commit to branch master
in repository texinfo.

The following commit(s) were added to refs/heads/master by this push:
     new f5a3980e88 @link for DocBook
f5a3980e88 is described below

commit f5a3980e884d987a81a03975a8013dae2be0d6af
Author: Gavin Smith <gavinsmith0123@gmail.com>
AuthorDate: Mon Jul 10 16:00:29 2023 +0100

    @link for DocBook
    
    * tp/Texinfo/Convert/DocBook.pm (_convert): Handle @link.
---
 ChangeLog                     | 6 ++++++
 tp/Texinfo/Convert/DocBook.pm | 6 +++++-
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index cbfc06aaf0..8b5ff505b9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2023-07-10  Gavin Smith <gavinsmith0123@gmail.com>
+
+       @link for DocBook
+
+       * tp/Texinfo/Convert/DocBook.pm (_convert): Handle @link.
+
 2023-07-09  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/ParserNonXS.pm (_close_current),
diff --git a/tp/Texinfo/Convert/DocBook.pm b/tp/Texinfo/Convert/DocBook.pm
index be54678f67..05eec0b88b 100644
--- a/tp/Texinfo/Convert/DocBook.pm
+++ b/tp/Texinfo/Convert/DocBook.pm
@@ -1059,6 +1059,9 @@ sub _convert($$;$)
           if ($element->{'cmdname'} eq 'inforef') {
             $manual_file_index = 2;
             $cmdname = 'xref';
+          } elsif ($element->{'cmdname'} eq 'link') {
+            $manual_file_index = 2;
+            $cmdname = 'ref';
           } else {
             if (scalar(@{$element->{'args'}}) == 5
                 and defined($element->{'args'}->[-1])
@@ -1221,7 +1224,8 @@ sub _convert($$;$)
             my $link_text = $section_name;
             $link_text = $node_name if (! defined($link_text));
             my $argument = "<link${linkend}>".$link_text."</link>";
-            if ($element->{'cmdname'} eq 'ref') {
+            if ($element->{'cmdname'} eq 'ref'
+                  or $element->{'cmdname'} eq 'link') {
               $result = $self->_convert(
                       $self->gdt('{title_ref}', {'title_ref' =>
                            {'type' => '_converted',