lisp/utf-2000/mojikyo-ccs.el

   1 (make-charset 'mojikyo
   2               "Mojikyo"
   3               `(long-name "Mojikyo"
   4                           chars 256
   5                           dimension 3
   6                           columns 2
   7                           graphic 2
   8                           direction l2r
   9                           min-code ,(lsh #x6000 16)
  10                           max-code ,(1- (+ (lsh #x6000 16)
  11                                            (* 94 60 22)))
  12                           code-offset ,(lsh #x6000 16)))
  13
  14 (make-charset 'mojikyo-2022-1
  15               "Mojikyo-2022-1"
  16               `(long-name "Mojikyo for ISO 2022 based CES, Part 1"
  17                           chars 94
  18                           dimension 3
  19                           columns 2
  20                           graphic 0
  21                           direction l2r
  22                           mother mojikyo
  23                           min-code 0
  24                           max-code ,(1- (* 94 94 60))
  25                           code-offset 1
  26                           conversion 94x94x60))
  27
  28 (let ((i 1)
  29       name)
  30   (while (<= i 21)
  31     (make-charset (setq name (intern (format "mojikyo-pj-%d" i)))
  32                   (format "Mojikyo PJ %d" i)
  33                   `(long-name ,(format "Mojikyo Psedo JIS Part %d" i)
  34                               chars 94
  35                               dimension 2
  36                               columns 2
  37                               graphic 0
  38                               registry ,(format "MojikyoPJ-%d" i)
  39                               direction l2r
  40                               mother mojikyo
  41                               min-code ,(1+ (* 94 60 (1- i)))
  42                               max-code ,(* 94 60 i)
  43                               code-offset ,(1+ (* 94 60 (1- i)))
  44                               conversion 94x60))
  45     (unless (memq name default-coded-charset-priority-list)
  46       (setq default-coded-charset-priority-list
  47             (append default-coded-charset-priority-list
  48                     (list name))))
  49     (setq i (1+ i))))