From 6453f7e73f2295846dec31de395091d530b4b317 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 12 Jul 2014 03:07:38 +0900
Subject: [PATCH] (U-00021D73): Apply new conventions for glyph granularity.

---
 lisp/utf-2000/Ideograph-R046-Mountain.el |   12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R046-Mountain.el b/lisp/utf-2000/Ideograph-R046-Mountain.el
index bf23121..0efc946 100644
--- a/lisp/utf-2000/Ideograph-R046-Mountain.el
+++ b/lisp/utf-2000/Ideograph-R046-Mountain.el
@@ -1324,6 +1324,7 @@
      ((=ucs		  . #x5206)	; 分
       ))
     (=ucs		. #x21D73)	; 𡵳
+    (=cbeta		. 03791)	; &I-CB03791;
     (->subsumptive
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
@@ -1331,11 +1332,16 @@
 	)
        ((=ucs		    . #x5C71)	; å±±
 	)
-       ((=ucs@ks	    . #x5206)	; &MJ007456;
+       ((==ucs@ks	    . #x5206)	; &MJ007456;
 	(=mj		    . 007456)	; &MJ007456;
 	))
-      (=ucs@iso		  . #x21D73)	; &CB03791;
-      (=cbeta		  . 03791)	; &CB03791;
+      (==ucs@iso	  . #x21D73)	; &R-CB03791;
+      (==cbeta		  . #x0ECF)	; &R-CB03791;
+      (->subsumptive
+       ((===cbeta	    . #x0ECF)	; &R2-CB03791;
+	)
+       ((===ucs@iso	    . #x21D73)	; &R2-U-00021D73;
+	))
       ))
     ))
 (define-char
-- 
1.7.10.4