## -*- perl -*-
## ----------------------------------------------------------------------
## Locale/ja_JP.eucJP/Texinfo: locale for Japanese output in Texinfo format
## ----------------------------------------------------------------------

## ----------------------------------------------------------------------
%locale = (
	   'detailed' => 'The Detailed Node Listing',
	   'chapter' => sub { return "$BBh(B $_[0] $B>O(B" },
	   'appendix' => sub { return "$BJd0d(B $_[0]" },
	   'section' => sub { return "$BBh(B $_[0] $B@a(B" },
	   'subsection' => sub { return "$BBh(B $_[0] $B@a(B" },
	   'subsubsection' => sub { return "$BBh(B $_[0] $B@a(B" },
	   'paragraph' => sub { return "$BBh(B $_[0] $B@a(B" },
	   'subparagraph' => sub { return "$BBh(B $_[0] $B@a(B" },
	   );

## ----------------------------------------------------------------------
