# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1593474740 -32400
# Node ID 7ca68e8c2702c6014d8b6bcd5e727b73887b4014
# Parent  f11b80b4d00580507b1b0578738e43d2a495de76
Attribute "start=" passed to OL

diff -r f11b80b4d005 -r 7ca68e8c2702 s4-funcs.sh
--- a/s4-funcs.sh	Tue Jun 30 08:33:54 2020 +0900
+++ b/s4-funcs.sh	Tue Jun 30 08:52:20 2020 +0900
@@ -705,8 +705,11 @@
 	:top
 	 s/\n//;
 	 s/^  *//;			# 2周目以降: 行頭空白削除
-	 s,[1-9][0-9]*\. ,,;			# まず行頭の "* " を消しておく
 	 H;				# 置き換え結果をホールドスペースに追加
+	 x;
+	 s,^<ol>\n\([1-9][0-9]*\)\. ,<ol start="\1"><li>,;	# 1行目のみ
+	 s,[1-9][0-9]*\. ,,;			# まず行頭の "N. " を消しておく
+	 x;
 	 s/.*//;			# パターンスペースは消しておく
 	 # ↓最終行なら残ったホールドスペース処理のため :cont へ
 	 $ b cont