From 21c32702aa55975291ecbf1be4b890188fa6e445 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sat, 3 Jan 2004 05:18:01 +0000
Subject: [PATCH] Add some `total-strokes' features.

---
 lisp/utf-2000/Ideograph-R128-Ear.el  |   13 +++++++++++++
 lisp/utf-2000/Ideograph-R137-Boat.el |    7 +++++++
 2 files changed, 20 insertions(+)

diff --git a/lisp/utf-2000/Ideograph-R128-Ear.el b/lisp/utf-2000/Ideograph-R128-Ear.el
index 3fdc9ff..f57b32c 100644
--- a/lisp/utf-2000/Ideograph-R128-Ear.el
+++ b/lisp/utf-2000/Ideograph-R128-Ear.el
@@ -548,11 +548,13 @@
 (define-char
   '((ideographic-radical . 128)	; ⽿
     (ideographic-strokes . 4)
+    (total-strokes	 . 10)
     (=ucs		. #x8041)	; 聁
     ))
 (define-char
   '((ideographic-radical . 128)	; ⽿
     (ideographic-strokes . 4)
+    (total-strokes	 . 10)
     (=ucs		. #x8042)	; 聂
     (=gb2312		. #x4474)	; ø»„º±
     ))
@@ -781,18 +783,21 @@
 (define-char
   '((ideographic-radical . 128)	; ⽿
     (ideographic-strokes . 5)
+    (total-strokes	 . 11)
     (=ucs		. #x804B)	; 聋
     (=gb2312		. #x417B)	; ø»„¶ž
     ))
 (define-char
   '((ideographic-radical . 128)	; ⽿
     (ideographic-strokes . 5)
+    (total-strokes	 . 11)
     (=ucs		. #x804C)	; 职
     (=gb2312		. #x5630)	; ø»…”‰
     ))
 (define-char
   '((ideographic-radical . 128)	; ⽿
     (ideographic-strokes . 5)
+    (total-strokes	 . 11)
     (=ucs		. #x804D)	; 聍
     (=gb2312		. #x7177)	; ø»…¼º
     ))
@@ -1865,6 +1870,7 @@
 (define-char
   '((ideographic-radical . 128)	; ⽿
     (ideographic-strokes . 9)
+    (total-strokes	 . 15)
     (=ucs		. #x8069)	; 聩
     (=gb2312		. #x7179)	; ø»…¼¼
     ))
@@ -1874,6 +1880,12 @@
     (total-strokes	 . 15)
     (=ucs		. #x806A)	; 聪
     (=gb2312		. #x344F)	; ø»„¢¬
+    ))
+(define-char
+  '((=>ucs		. #x806A)	; 聪
+    (ideographic-radical . 128)	; ⽿
+    (ideographic-strokes . 9)
+    (total-strokes	 . 15)
     (=cns11643-3	. #x4E35)	; ø»–˜¾
     ))
 (define-char
@@ -2307,6 +2319,7 @@
   '((morohashi-daikanwa	29166 0 1)
     (ideographic-radical . 128)	; ⽿
     (ideographic-strokes . 11)
+    (total-strokes	 . 17)
     (=ucs		. #x8072)	; 聲
     (=gb12345		. #x4979)	; 聲
     ))
diff --git a/lisp/utf-2000/Ideograph-R137-Boat.el b/lisp/utf-2000/Ideograph-R137-Boat.el
index 78bf90c..9911e27 100644
--- a/lisp/utf-2000/Ideograph-R137-Boat.el
+++ b/lisp/utf-2000/Ideograph-R137-Boat.el
@@ -199,6 +199,7 @@
 (define-char
   '((ideographic-radical . 137)	; ⾈
     (ideographic-strokes . 3)
+    (total-strokes	 . 9)
     (=ucs		. #x8223)	; 舣
     (=gb2312		. #x742F)	; ø»†€Œ
     ))
@@ -509,12 +510,14 @@
 (define-char
   '((ideographic-radical . 137)	; ⾈
     (ideographic-strokes . 4)
+    (total-strokes	 . 10)
     (=ucs		. #x8230)	; 舰
     (=gb2312		. #x3D22)	; ø»„¯
     ))
 (define-char
   '((ideographic-radical . 137)	; ⾈
     (ideographic-strokes . 4)
+    (total-strokes	 . 10)
     (=ucs		. #x8231)	; 舱
     (=gb2312		. #x3255)	; ø»„Ÿ¶
     ))
@@ -788,6 +791,7 @@
 (define-char
   '((ideographic-radical . 137)	; ⾈
     (ideographic-strokes . 5)
+    (total-strokes	 . 11)
     (=ucs		. #x823B)	; 舻
     (=gb2312		. #x7435)	; ø»†€’
     ))
@@ -961,6 +965,7 @@
 (define-char
   '((ideographic-radical . 137)	; ⾈
     (ideographic-strokes . 6)
+    (total-strokes	 . 12)
     (=ucs		. #x823E)	; 舾
     (=gb2312		. #x7438)	; ø»†€•
     ))
@@ -1190,6 +1195,7 @@
 (define-char
   '((ideographic-radical . 137)	; ⾈
     (ideographic-strokes . 7)
+    (total-strokes	 . 13)
     (=ucs		. #x8248)	; 艈
     ))
 (define-char
@@ -2353,6 +2359,7 @@
 (define-char
   '((ideographic-radical . 137)	; ⾈
     (ideographic-strokes . 12)
+    (total-strokes	 . 18)
     (=ucs		. #x8260)	; 艠
     (=jis-x0212		. #x5727)	; ø»‹³ª
     (=jis-x0213-1-2000	. #x7A5B)	; ø»¤–¤
-- 
1.7.10.4