(M-24754): Add `<-vulgar-ideograph'.

(J90-4135): Unify JIS X 0208:1978 and 1983 code points.
(U+7977): Relate to M-24852.
(J90-4578): Unify JIS X 0208:1983 code point; relate to M-24852.

diff --git a/lisp/utf-2000/Ideograph-R113-Spirit.el b/lisp/utf-2000/Ideograph-R113-Spirit.el
index 39fe987..7aa14c1 100644 (file)
--- a/lisp/utf-2000/Ideograph-R113-Spirit.el
+++ b/lisp/utf-2000/Ideograph-R113-Spirit.el
@@ -1473,22 +1473,6 @@
   '((ideographic-radical . 113)        ; ⽰
     (ideographic-strokes . 7)
     (total-strokes      . 12)
-    (chinese-gb2312    . #x353B)       ; �����
-    (chinese-isoir165  . #x353B)       ; �����
-    (chinese-cns11643-4 . #x395A)      ; �����
-    (ucs               . #x7977)       ; 祷
-    ))
-(define-char
-  '((=>ucs             . #x7977)       ; 祷
-    (ideographic-radical . 113)        ; ⽰
-    (ideographic-strokes . 7)
-    (total-strokes      . 12)
-    (japanese-jisx0208-1990    . #x4578)       ; �����
-    ))
-(define-char
-  '((ideographic-radical . 113)        ; ⽰
-    (ideographic-strokes . 7)
-    (total-strokes      . 12)
     (chinese-gb2312    . #x3B76)       ; �����
     (chinese-isoir165  . #x3B76)       ; �����
     (ucs               . #x7978)       ; 祸
@@ -1848,6 +1832,11 @@
   '((ideographic-radical . 113)        ; ⽰
     (ideographic-strokes . 8)
     (total-strokes      . 13)
+    (<-vulgar-ideograph
+     (:sources (sougen-irai-zokujifu morohashi-daikanwa)
+      :char    ((ideograph-daikanwa . 24835)   ; �����
+                )
+      ))
     (chinese-gb2312    . #x6C78)       ; �����
     (chinese-isoir165  . #x6C78)       ; �����
     (ideograph-daikanwa . 24754)       ; �����
@@ -1859,6 +1848,8 @@
     (ideographic-radical . 113)        ; ⽰
     (ideographic-strokes . 9)
     (total-strokes      . 14)
+    (japanese-jisx0208-1978    . #x4135)       ; �����
+    (japanese-jisx0208         . #x4135)       ; �����
     (japanese-jisx0208-1990    . #x4135)       ; �����
     ))
 (define-char
@@ -3090,6 +3081,25 @@
     (ucs               . #x79B1)       ; 禱
     ))
 (define-char
+  '((morohashi-daikanwa        24852 0 5)
+    (ideographic-radical . 113)        ; ⽰
+    (ideographic-strokes . 7)
+    (total-strokes      . 12)
+    (chinese-gb2312    . #x353B)       ; �����
+    (chinese-isoir165  . #x353B)       ; �����
+    (chinese-cns11643-4 . #x395A)      ; �����
+    (ucs               . #x7977)       ; 祷
+    ))
+(define-char
+  '((=>ucs             . #x7977)       ; 祷
+    (morohashi-daikanwa        24852 0 6)
+    (ideographic-radical . 113)        ; ⽰
+    (ideographic-strokes . 7)
+    (total-strokes      . 12)
+    (japanese-jisx0208         . #x4578)       ; �����
+    (japanese-jisx0208-1990    . #x4578)       ; �����
+    ))
+(define-char
   '((ideographic-radical . 113)        ; ⽰
     (ideographic-strokes . 14)
     (total-strokes      . 19)