Skip to content

Commit 2967c6a

Browse files
Fat-Zermquinson
authored andcommitted
Texinfo: add some missing command definitions
Bug: #497 Signed-off-by: Alexander Golubev <[email protected]>
1 parent 3266006 commit 2967c6a

File tree

1 file changed

+20
-28
lines changed

1 file changed

+20
-28
lines changed

lib/Locale/Po4a/Texinfo.pm

Lines changed: 20 additions & 28 deletions
Original file line numberDiff line numberDiff line change
@@ -396,25 +396,22 @@ sub translate_buffer_ignore {
396396
$translate_buffer_env{"ignore"} = \&translate_buffer_ignore;
397397

398398
foreach (
399-
qw(appendix section cindex findex kindex opindex pindex tindex vindex subsection
400-
dircategory subtitle include
401-
exdent center unnumberedsec
402-
heading unnumbered unnumberedsubsec
403-
unnumberedsubsubsec appendixsec appendixsubsec
404-
appendixsubsubsec majorheading chapheading subheading
405-
subsubheading shorttitlepage
406-
subsubsection top item itemx chapter settitle
407-
title author)
399+
qw(appendix appendixsec appendixsubsec appendixsubsubsec author center
400+
chapheading chapter cindex defline deftypeline dircategory exdent findex
401+
heading include item itemx kindex majorheading opindex pindex section
402+
settitle shorttitlepage subheading subsection subsubheading subsubsection
403+
subtitle tindex title top unnumbered unnumberedsec unnumberedsubsec
404+
unnumberedsubsubsec vindex)
408405
)
409406
{
410407
$commands{$_} = \&line_command;
411408
$break_line{$_} = 1;
412409
$translate_line_command{$_} = 1;
413410
}
414411
foreach (
415-
qw(c comment clear set setfilename setchapternewpage vskip synindex
416-
syncodeindex need fonttextsize printindex headings finalout sp
417-
definfoenclose)
412+
qw(c clear comment definfoenclose finalout fonttextsize frenchspacing
413+
headings need printindex set setchapternewpage setfilename sp syncodeindex
414+
synindex vskip)
418415
)
419416
{
420417
$commands{$_} = \&line_command;
@@ -555,18 +552,17 @@ sub environment_line_command {
555552
#}
556553
#
557554
foreach (
558-
qw(detailmenu menu titlepage group copying
559-
documentdescription cartouche
560-
direntry
561-
ifdocbook ifhtml ifinfo ifplaintext iftex ifxml
562-
ifnotdocbook ifnothtml ifnotinfo ifnotplaintext ifnottex ifnotxml)
563-
)
555+
qw(cartouche copying copyingg defblock detailmenu direntry displaymath
556+
documentdescription group ifdocbook ifhtml ifinfo iflatex ifnotdocbook
557+
ifnothtml ifnotinfo ifnotplaintextg ifnottex ifnotxml ifplaintext iftex
558+
ifxml menu nodedescriptionblock titlepage)
559+
)
564560
{
565561
$commands{$_} = \&environment_line_command;
566562
$translate_line_command{$_} = 0;
567563
$break_line{$_} = 1;
568564
}
569-
foreach (qw(enumerate multitable ifclear ifset)) {
565+
foreach (qw(enumerate multitable ifclear ifset float linemacro)) {
570566
$commands{$_} = \&environment_line_command;
571567
$break_line{$_} = 1;
572568
}
@@ -589,15 +585,11 @@ register_generic_command("*end, ");
589585
$commands{'end'} = $end_command;
590586
$break_line{'end'} = 1;
591587

592-
register_generic_command("*macro, ");
593-
$commands{'macro'} = \&environment_command;
594-
$break_line{'macro'} = 1;
595-
register_generic_command("*itemize, ");
596-
$commands{'itemize'} = \&environment_command;
597-
$break_line{'itemize'} = 1;
598-
register_generic_command("*table, ");
599-
$commands{'table'} = \&environment_command;
600-
$break_line{'table'} = 1;
588+
foreach (qw(itemize macro ftable table vtable)) {
589+
register_generic_command("*$_, ");
590+
$commands{$_} = \&environment_command;
591+
$break_line{$_} = 1;
592+
}
601593

602594
# TODO: is_closed, use a regexp: \ does not escape the closing brace.
603595
# TBC on LaTeX.

0 commit comments

Comments
 (0)