[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[cvs-ml 777] Re: cvs-1.11 texinfo日本語訳
Yoshiki Hayashi <t90553@mail.ecc.u-tokyo.ac.jp> writes:
> Yukimasa Takano <takano@readmej.com> writes:
>
> > texi2html、かっこよくなりましたね。ところどころ、妙な字が染み出ている？
> > のがちょっと気になりますが…。
>
> どうも、メニューで
> * Adding and removing:: ファイル/ディレクトリを加える/取り除
> く/名前を変える
>
> のように、reference から始まらない行があると変になるようです。
> 後、コメントが出てないところもあるようです。
> texi2html の bug のような感じですので、時間があるときにもう
> ちょっと調べてから bug report しようと思います。
texi2html が悪いのではなくて、perl が悪いのでした。とはいえ、
program 自体は正しいとはいえやっぱり変な出力になるのは悲しい
ので、以下のような変更をして HTML file を再生成して更新しま
した。
# texi2html の version は 1.64 です。
--- /usr/bin/texi2html Sat Jul 8 20:08:05 2000
+++ /home/penny/bin/texi2html Fri Sep 29 08:58:56 2000
@@ -4025,7 +4025,7 @@
push(@lines2, &debug("<TABLE BORDER=0 CELLSPACING=0>\n", __LINE__));
}
# look for continuation
- while ($lines[0] =~ /^\s+\w+/)
+ while ($lines[0] =~ /^\s+.+/)
{
$descr .= shift(@lines);
}
@@ -5002,7 +5002,7 @@
$clean_entry =~ s/^.*? // if ($clean_entry =~ /^([A-Z]|\d+)\.[\d\.]* /);
$clean_entry =~ s/[^\w]//g;
my $clean_descr = $descr;
- $clean_descr =~ s/[^\w]//g;
+ $clean_descr =~ s/[\s]//g;
$descr = '' if ($clean_entry eq $clean_descr)
}
push(@lines2,&debug('<TR><TD ALIGN="left" VALIGN="TOP">' .
--
Yoshiki Hayashi