From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 27 May 2020 09:11:37 +0000 (+0900)
Subject: (U+6588): Use `<-denotational@usage' instead of `<-denotational' for
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6004f011b6e221a195e1ceb661b047b67246ec89;p=chise%2Fxemacs-chise.git

(U+6588): Use `<-denotational@usage' instead of `<-denotational' for
BUCS+5B78; add `ideographic-structure'; add `sound@ja/on'.
(U-0002D914): New character.
---

diff --git a/lisp/utf-2000/Ideograph-R067-Script.el b/lisp/utf-2000/Ideograph-R067-Script.el
index e5cca81..fc1c96a 100644
--- a/lisp/utf-2000/Ideograph-R067-Script.el
+++ b/lisp/utf-2000/Ideograph-R067-Script.el
@@ -175,7 +175,7 @@
       ))
     ))
 (define-char
-  '((<-denotational
+  '((<-denotational@usage
      ((==>ucs@bucs	  . #x5B78)	; &BUCS+5B78;
       ))
     (ideographic-radical@ucs . 67)	; ⽂
@@ -187,6 +187,15 @@
     (ideographic-radical@cns*sources
      shinjigen@1ed cns11643)
     (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x6587)	; 文
+      )
+     ((=ucs		  . #x5B50)	; 子
+      ))
+    (sound@ja/on	"gaku")
     (=ucs		. #x6588)	; 斈
     (=adobe-japan1-0	. 04620)	; &I-AJ1-04620;
     (=jis-x0208		. #x555D)	; &I-J90-555D; [53-61]
@@ -203,7 +212,7 @@
       (=shinjigen	  .  1783)	; å­¸
       ))
     (<-vulgar*sources
-     daikanwa shinjigen@1ed)
+     pianhai daikanwa shinjigen)
     (->subsumptive
      ((=decomposition@cid
        ((=ucs		    . #x6588)	; 斈
@@ -240,6 +249,28 @@
     ))
 (define-char
   '((ideographic-radical . 67)	; ⽂
+    (ideographic-strokes . 3)
+    (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x6587)	; 文
+      )
+     ((=ucs		  . #x5DFE)	; å·¾
+      ))
+    (=ucs		. #x2D914)	; 𭤔
+    (=cbeta		. 05471)	; &I-CB05471;
+    (->subsumptive
+     ((==ucs@JP/hanazono  . #x2D914)	; &g2-CB05471;
+      (==cbeta		  . 05471)	; &g2-CB05471;
+      (->subsumptive
+       ((===cbeta	    . 05471)	; &R-CB05471;
+	))
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 67)	; ⽂
     (ideographic-strokes . 4)
     (total-strokes	 . 8)
     (ideographic-structure