(M-31582): Separate JSP-586E, C4-466C and U+84A6.
[chise/xemacs-chise.git] / lisp / utf-2000 / mojikyo.el
1 (defun allocate-mojikyo-chars (name plane)
2   (let ((ucs (+ #xE00001
3                 (* (1- plane)
4                    (eval-when-compile (* 94 60)))))
5         (r 0)
6         char c)
7     (while (< r 30)
8       (setq c 0)
9       (while (< c 94)
10         (setq char (int-char ucs))
11         (put-char-attribute
12          char name (list (+ r (eval-when-compile (+ 16 32)))
13                          (+ c 33)))
14         (setq c (1+ c)
15               ucs (1+ ucs)))
16       (setq r (1+ r)))
17     (setq r 30)
18     (while (< r 60)
19       (setq c 0)
20       (while (< c 94)
21         (setq char (int-char ucs))
22         (put-char-attribute
23          char name (list (+ r (eval-when-compile (+ 18 32)))
24                          (+ c 33)))
25         (setq c (1+ c)
26               ucs (1+ ucs)))
27       (setq r (1+ r)))
28     ))
29
30 (let ((p 1))
31   (while (<= p 21)
32     (allocate-mojikyo-chars (intern (format "mojikyo-pj-%d" p)) p)
33     (setq p (1+ p))))
34
35 (remove-char-attribute (decode-char 'ideograph-daikanwa 292)
36                        'mojikyo-pj-1)
37 (remove-char-attribute (decode-char 'ideograph-daikanwa 634)
38                        ;; (int-char (+ #xe00000 634))
39                        'mojikyo-pj-1)
40 (remove-char-attribute (int-char (+ #xe00000 916))
41                        ;;(decode-char 'ideograph-daikanwa 916)
42                        'mojikyo-pj-1)
43 (remove-char-attribute (decode-char 'ideograph-daikanwa 28800)
44                        'mojikyo-pj-6)
45 (remove-char-attribute (int-char (+ #xe00000 48869))
46                        'mojikyo-pj-9)
47 (remove-char-attribute (int-char (+ #xe00000 50100))
48                        'mojikyo-pj-9)