9 min-code ,(lsh #x6000 16)
10 max-code ,(1- (+ (lsh #x6000 16)
12 code-offset ,(lsh #x6000 16)))
14 (make-charset 'mojikyo-2022-1
16 `(long-name "Mojikyo for ISO 2022 based CES, Part 1"
24 max-code ,(1- (* 94 94 60))
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)
38 registry ,(format "MojikyoPJ-%d" i)
41 min-code ,(1+ (* 94 60 (1- i)))
43 code-offset ,(1+ (* 94 60 (1- i)))
45 (unless (memq name default-coded-charset-priority-list)
46 (setq default-coded-charset-priority-list
47 (append default-coded-charset-priority-list