1 ;;; -*- coding: iso-2022-7bit -*-
2 ;;; jisx0213-font.el --- Font setup and define encoder for JIS X 0213.
4 ;; Copyright (C) 2000 KAWABATA, Taichi
6 ;; Keywords: CCL, mule, multilingual,
7 ;; character set, coding-system, JIS X 0213
9 ;;; This program defines character set for Japanese JIS X 0213.
12 ;; Miyashita Hisashi extracted this part
13 ;; from JIS X 0213 package made by KAWABATA, Taichi.
15 ;; Add them to fontset.
20 (require 'x0213-sjis))
24 (when (setq fontset (query-fontset "-*-*-medium-r-*-*-16-*-*-*-*-*-*-*"))
25 (set-fontset-font fontset 'japanese-jisx0213-1 "*jisx0213.2000-1")
26 (set-fontset-font fontset 'japanese-jisx0213-2 "*jisx0213.2000-2")
27 ;;(set-fontset-font fontset 'japanese-jisx0213-1 "*shiftjis-0")
28 ;;(set-fontset-font fontset 'japanese-jisx0213-2 "*shiftjis-0")
30 (when (setq fontset (query-fontset "-*-*-medium-r-*-*-24-*-*-*-*-*-*-*"))
31 ;;(set-fontset-font fontset 'japanese-jisx0213-1 "*jisx0213.2000-1")
32 ;;(set-fontset-font fontset 'japanese-jisx0213-2 "*jisx0213.2000-2")
33 (set-fontset-font fontset 'japanese-jisx0213-1 "*shiftjis-0")
34 (set-fontset-font fontset 'japanese-jisx0213-2 "*shiftjis-0")
37 ;; Shift-JIS encoded Font
\e$B$r;HMQ$9$k>l9g$N
\e(Bfont encoder.
39 (define-ccl-program ccl-encode-shiftjis-font
42 (r1 = (r4 en-sjis r2))
44 (if (r0 == ,(charset-id 'japanese-jisx0213-2))
45 ((r1 = r4 ,jisx0213-shift-jis-plain-2-encode-table)))))
46 "CCL program to encode a JIS X 0213 to code point of Shift-JIS font.")
48 (setq font-ccl-encoder-alist
49 (cons (cons "shiftjis-0" 'ccl-encode-shiftjis-font)
50 font-ccl-encoder-alist))
52 (if (featurep 'meadow)
53 (w32-regist-font-encoder
54 'shift-jisx0213-font-encoder
55 'ccl-encode-shiftjis-font))