From 5d5c12072560f225d23bf73ea50f11bafc656d9f Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Thu, 1 Jan 2004 20:00:48 +0000
Subject: [PATCH] Add some `total-strokes' features. (U+7800): Fix strokes.

---
 lisp/utf-2000/Ideograph-R112-Stone.el |   44 +++++++++++++++++++++++++++------
 1 file changed, 37 insertions(+), 7 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R112-Stone.el b/lisp/utf-2000/Ideograph-R112-Stone.el
index 3a077bc..376f62e 100644
--- a/lisp/utf-2000/Ideograph-R112-Stone.el
+++ b/lisp/utf-2000/Ideograph-R112-Stone.el
@@ -156,6 +156,7 @@
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 2)
+    (total-strokes	 . 7)
     (=ucs		. #x77F6)	; 矶
     (=gb2312		. #x6D36)	; ø»…¶
     ))
@@ -291,18 +292,28 @@
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 3)
+    (total-strokes	 . 8)
     (=ucs		. #x77FE)	; 矾
     (=gb2312		. #x372F)	; ø»„¦¦
     ))
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 3)
+    (total-strokes	 . 8)
     (=ucs		. #x77FF)	; 矿
     (=gb2312		. #x3F73)	; ø»„³š
     ))
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 3)
+    (total-strokes	 . 8)
+    (=ucs		. #x7800)	; 砀
+    (=gb2312		. #x6D38)	; ø»…¶ƒ
+    ))
+(define-char
+  '((ideographic-radical . 112)	; ⽯
+    (ideographic-strokes . 3)
+    (total-strokes	 . 8)
     (=ucs		. #x7801)	; 码
     (=gb2312		. #x426B)	; ø»„·¬
     ))
@@ -661,48 +672,48 @@
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 4)
-    (=ucs		. #x7800)	; 砀
-    (=gb2312		. #x6D38)	; ø»…¶ƒ
-    ))
-(define-char
-  '((ideographic-radical . 112)	; ⽯
-    (ideographic-strokes . 4)
+    (total-strokes	 . 9)
     (=ucs		. #x7816)	; 砖
     (=gb2312		. #x5729)	; ø»…• 
     ))
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 4)
+    (total-strokes	 . 9)
     (=ucs		. #x7817)	; 砗
     (=gb2312		. #x6D3A)	; ø»…¶…
     ))
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 4)
+    (total-strokes	 . 9)
     (=ucs		. #x7818)	; 砘
     (=gb2312		. #x6D3B)	; ø»…¶†
     ))
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 4)
-    (japanese-strokes	 . 5)
+    (total-strokes	 . 9)
     (=ucs		. #x7819)	; 砙
     (=jis-x0213-2-2000	. #x7242)	; ø»¦”Ÿ
     ))
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 4)
+    (total-strokes	 . 9)
     (=ucs		. #x781A)	; 砚
     (=gb2312		. #x5162)	; ø»…¥
     ))
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 4)
+    (total-strokes	 . 9)
     (=ucs		. #x781B)	; 砛
     ))
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 4)
+    (total-strokes	 . 9)
     (=ucs		. #x781C)	; 砜
     (=gb2312		. #x6D3F)	; ø»…¶Š
     ))
@@ -791,6 +802,7 @@
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 5)
+    (total-strokes	 . 10)
     (=ucs		. #x781E)	; 砞
     (=daikanwa		. 24082)	; ø¸…¸’
     ))
@@ -1430,6 +1442,7 @@
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 5)
+    (total-strokes	 . 10)
     (=ucs		. #x7839)	; ç ¹
     (=gb2312		. #x6D41)	; ø»…¶Œ
     ))
@@ -1456,29 +1469,34 @@
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 5)
+    (total-strokes	 . 10)
     (=ucs		. #x783C)	; ç ¼
     (=gb2312		. #x6D45)	; ø»…¶
     ))
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 5)
+    (total-strokes	 . 10)
     (=ucs		. #x783D)	; ç ½
     ))
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 5)
+    (total-strokes	 . 10)
     (=ucs		. #x783E)	; ç ¾
     (=gb2312		. #x4079)	; ø»„´¾
     ))
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 5)
+    (total-strokes	 . 10)
     (=ucs		. #x7840)	; 础
     (=gb2312		. #x3421)	; ø»„¡¾
     ))
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 5)
+    (total-strokes	 . 10)
     (=ucs		. #x7841)	; 硁
     (=iso-ir165		. #x7D43)	; ø»Žµ¾
     ))
@@ -2044,40 +2062,47 @@
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 6)
+    (total-strokes	 . 11)
     (=ucs		. #x7853)	; 硓
     ))
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 6)
+    (total-strokes	 . 11)
     (=ucs		. #x7854)	; 硔
     ))
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 6)
+    (total-strokes	 . 11)
     (=ucs		. #x7855)	; 硕
     (=gb2312		. #x4B36)	; ø»…„…
     ))
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 6)
+    (total-strokes	 . 11)
     (=ucs		. #x7856)	; 硖
     (=gb2312		. #x6D4C)	; ø»…¶—
     ))
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 6)
+    (total-strokes	 . 11)
     (=ucs		. #x7857)	; 硗
     (=gb2312		. #x6D4D)	; ø»…¶˜
     ))
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 6)
+    (total-strokes	 . 11)
     (=ucs		. #x7858)	; 硘
     (=jef-china3	. #x8FC3)	; øºˆ¿ƒ
     ))
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 6)
+    (total-strokes	 . 11)
     (=ucs		. #x7859)	; 硙
     (=iso-ir165		. #x2E64)	; ø»‚
     ))
@@ -3648,12 +3673,14 @@
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 8)
+    (total-strokes	 . 13)
     (=ucs		. #x789B)	; 碛
     (=gb2312		. #x6D53)	; ø»…¶ž
     ))
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 8)
+    (total-strokes	 . 13)
     (=ucs		. #x789C)	; 碜
     (=gb2312		. #x6D57)	; ø»…¶¢
     ))
@@ -5233,6 +5260,7 @@
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 11)
+    (total-strokes	 . 16)
     (=ucs		. #x78DC)	; 磜
     (=iso-ir165		. #x2E66)	; ø»‚Ÿ
     (=daikanwa		. 24424)	; ø¸…½¨
@@ -5758,6 +5786,7 @@
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 11)
+    (total-strokes	 . 16)
     (=ucs		. #x78EE)	; 磮
     ))
 (define-char
@@ -7487,6 +7516,7 @@
 (define-char
   '((ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 15)
+    (total-strokes	 . 20)
     (=ucs		. #x7922)	; 礢
     ))
 (define-char
-- 
1.7.10.4