1 (defun allocate-mojikyo-chars (name plane)
4 (eval-when-compile (* 94 60)))))
10 (setq char (int-char ucs))
12 char name (list (+ r (eval-when-compile (+ 16 32)))
21 (setq char (int-char ucs))
23 char name (list (+ r (eval-when-compile (+ 18 32)))
32 (allocate-mojikyo-chars (intern (format "mojikyo-pj-%d" p)) p)