From 18b527bc357d7709ee50749e244be890ac6ff45e Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Mon, 31 Jul 2000 03:46:09 +0000
Subject: [PATCH 1/1] Use
 `{vulgar|original|variant|ancient}-char-of-shinjigen-1'
 instead of `comment'.

---
 lisp/utf-2000/Ideograph-R004-Slash.el |    2 +-
 lisp/utf-2000/Ideograph-R006-Hook.el  |    3 +--
 lisp/utf-2000/Ideograph-R007-Two.el   |    4 ++--
 lisp/utf-2000/Ideograph-R008-Lid.el   |    6 +++---
 lisp/utf-2000/Ideograph-R009-Man.el   |    8 ++++----
 5 files changed, 11 insertions(+), 12 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R004-Slash.el b/lisp/utf-2000/Ideograph-R004-Slash.el
index a5644ea..a2c9cc3 100644
--- a/lisp/utf-2000/Ideograph-R004-Slash.el
+++ b/lisp/utf-2000/Ideograph-R004-Slash.el
@@ -142,8 +142,8 @@
   '((ideographic-radical . 4)	; ⼃
     (ideographic-strokes . 2)
     (total-strokes	 . 3)
-    (comment		. "<vulgar character> of S1-0047")
     (shinjigen-1	. 48)
+    (vulgar-char-of-shinjigen-1 . 47)
     (chinese-cns11643-3 . #x2130)	; ø»•–³
     (ideograph-daikanwa . 00119)	; ø¸€·
     (ucs		. #x4E46)	; 乆
diff --git a/lisp/utf-2000/Ideograph-R006-Hook.el b/lisp/utf-2000/Ideograph-R006-Hook.el
index 5cd4ef5..81625df 100644
--- a/lisp/utf-2000/Ideograph-R006-Hook.el
+++ b/lisp/utf-2000/Ideograph-R006-Hook.el
@@ -160,10 +160,9 @@
   '((ideographic-radical . 6)	; ⼅
     (ideographic-strokes . 6)
     (total-strokes	 . 7)
-    (comment		. "<vulgar character> of S1-0069")
-    (non-morohashi	239 9)
     (shinjigen-1	. 71)
     (shinjigen-2	. 71)
+    (vulgar-char-of-shinjigen-1 . 69)
     (japanese-jisx0208-1978	. #x502F)	; ø»ƒ
     (japanese-jisx0208		. #x502F)	; ø»‡•˜
     (ucs			. #x4E8A)	; 亊
diff --git a/lisp/utf-2000/Ideograph-R007-Two.el b/lisp/utf-2000/Ideograph-R007-Two.el
index 0dc4ad3..3fd8a3c 100644
--- a/lisp/utf-2000/Ideograph-R007-Two.el
+++ b/lisp/utf-2000/Ideograph-R007-Two.el
@@ -67,7 +67,7 @@
   '((ideographic-radical . 7)	; ⼆
     (ideographic-strokes . 1)
     (total-strokes	 . 3)
-    (comment		. "<original character> of S1-0075")
+    (original-char-of-shinjigen-1 . 75)
     (shinjigen-1	. 76)
     (chinese-gb2312	. #x3F77)	; ø»„³ž
     (chinese-isoir165	. #x3F77)	; ø»›®
@@ -80,8 +80,8 @@
     (ideographic-radical . 7)	; ⼆
     (ideographic-strokes . 1)
     (total-strokes	 . 3)
-    (comment		. "<variant> of S1-0075")
     (shinjigen-1	. 77)
+    (variant-of-shinjigen-1 . 75)
     (korean-ksc5601	. #x6A27)	; ø»Š… 
     (ucs		. #x4E90)	; 亐
     ))
diff --git a/lisp/utf-2000/Ideograph-R008-Lid.el b/lisp/utf-2000/Ideograph-R008-Lid.el
index fc2b24d..beb145c 100644
--- a/lisp/utf-2000/Ideograph-R008-Lid.el
+++ b/lisp/utf-2000/Ideograph-R008-Lid.el
@@ -307,9 +307,9 @@
   '((ideographic-radical . 8)	; ⼇
     (ideographic-strokes . 7)
     (total-strokes	 . 9)
-    (comment		. "<vulgar character> of S1-0102")
     (shinjigen-1	. 103)
     (shinjigen-2	. 103)
+    (vulgar-char-of-shinjigen-1 . 102)
     (japanese-jisx0208-1978	. #x5037)	; ø»ƒ˜
     (japanese-jisx0208		. #x5037)	; ø»‡• 
     (chinese-cns11643-3		. #x2B25)	; ø»•¥”
@@ -390,9 +390,9 @@
     (ideographic-radical . 8)	; ⼇
     (ideographic-strokes . 8)
     (total-strokes	 . 10)
-    (comment		. "<vulgar character> of S1-0104")
     (shinjigen-1	. 105)
     (shinjigen-2	. 105)
+    (vulgar-char-of-shinjigen-1 . 104)
     (chinese-cns11643-4 . #x2B5F)	; ø»—°’
     (ideograph-daikanwa . 00316)	; ø¸€„¼
     ))
@@ -401,9 +401,9 @@
     (ideographic-radical . 8)	; ⼇
     (ideographic-strokes . 8)
     (total-strokes	 . 10)
-    (comment		. "<vulgar character> of S1-0106")
     (shinjigen-1	. 108)
     (shinjigen-2	. 108)
+    (vulgar-char-of-shinjigen-1 . 106)
     (chinese-cns11643-6 . #x3530)	; ø»œ’—
     (ideograph-daikanwa . 00317)	; ø¸€„½
     ))
diff --git a/lisp/utf-2000/Ideograph-R009-Man.el b/lisp/utf-2000/Ideograph-R009-Man.el
index 5864f8a..cf87328 100644
--- a/lisp/utf-2000/Ideograph-R009-Man.el
+++ b/lisp/utf-2000/Ideograph-R009-Man.el
@@ -803,8 +803,8 @@
     (ideographic-radical . 9)	; ⼈
     (ideographic-strokes . 4)
     (total-strokes	 . 6)
-    (comment		. "<vulgar character> of S1-0144")
     (shinjigen-1	. 146)
+    (vulgar-char-of-shinjigen-1 . 144)
     ))
 (define-char
   '((ideographic-radical . 9)	; ⼈
@@ -3036,7 +3036,7 @@
   '((ideographic-radical . 9)	; ⼈
     (ideographic-strokes . 6)
     (total-strokes	 . 8)
-    (comment		. "<ancient character> of S1-0211")
+    (ancient-char-of-shinjigen-1 . 211)
     (shinjigen-1	. 212)
     (chinese-cns11643-3 . #x274E)	; ø»• …
     (ideograph-daikanwa . 00578)	; ø¸€‰‚
@@ -5299,9 +5299,9 @@
   '((ideographic-radical . 9)	; ⼈
     (ideographic-strokes . 8)
     (total-strokes	 . 10)
-    (comment		. "<vulgar character> of S1-4789")
     (shinjigen-1	. 4790)
     (shinjigen-2	. 4790)
+    (vulgar-char-of-shinjigen-1 . 4789)
     (japanese-jisx0212		. #x3150)	; ø»Š¼Ÿ
     (japanese-jisx0213-2	. #x2159)	; ø»¤¸
     (ideograph-daikanwa		. 00763)	; ø¸€‹»
@@ -6474,8 +6474,8 @@
   '((ideographic-radical . 9)	; ⼈
     (ideographic-strokes . 9)
     (total-strokes	 . 11)
-    (comment		. "<variant> of S1-0211")
     (shinjigen-1	. 213)
+    (variant-of-shinjigen-1 . 211)
     (chinese-cns11643-3 . #x3447)	; ø»•³„
     (ideograph-daikanwa . 00858)	; ø¸€š
     (ucs		. #x5058)	; 偘
-- 
1.7.10.4