~/.emacsのtips集ができそうですね。
>>>>> In <[EMAIL PROTECTED]>
>>>>> Akihiro HIRANO <[EMAIL PROTECTED]> wrote:
> ＃上記は機種異存文字入りメールの解読用…
僕の ~/.emacs にはこんなの↓が入ってます。
;;;; set-fontset-font
(if (or (featurep 'xemacs) (<= emacs-major-version 21))
nil
(let* ((jisx0208
"-*-fixed-medium-r-normal-*-16-*-*-*-*-*-jisx0208.1983-0")
(jisx0213
"-*-fixed-medium-r-normal-*-16-*-*-*-*-*-jisx0213.2000-1")
(defs
`(((33 . 33) (33 . 126) ,jisx0208)
((34 . 33) (35 . 47) ,jisx0213)
((35 . 48) (35 . 57) ,jisx0208)
((35 . 58) (35 . 64) ,jisx0213)
((35 . 65) (35 . 90) ,jisx0208)
((35 . 91) (35 . 96) ,jisx0213)
((35 . 97) (35 . 122) ,jisx0208)
((35 . 123) (35 . 126) ,jisx0213)
((36 . 33) (36 . 115) ,jisx0208)
((36 . 116) (36 . 126) ,jisx0213)
((37 . 33) (37 . 118) ,jisx0208)
((37 . 119) (37 . 126) ,jisx0213)
((38 . 33) (38 . 56) ,jisx0208)
((38 . 57) (38 . 64) ,jisx0213)
((38 . 65) (38 . 88) ,jisx0208)
((38 . 89) (38 . 126) ,jisx0213)
((39 . 33) (39 . 65) ,jisx0208)
((39 . 66) (39 . 80) ,jisx0213)
((39 . 81) (39 . 113) ,jisx0208)
((39 . 114) (39 . 126) ,jisx0213)
((40 . 33) (40 . 64) ,jisx0208)
((40 . 65) (47 . 126) ,jisx0213)
((48 . 33) (116 . 36) ,jisx0208)
((116 . 37) (126 . 126) ,jisx0213)))
def from to font)
(while defs
(setq def (car defs)
defs (cdr defs)
from (car def)
to (nth 1 def)
font (nth 2 def))
(set-fontset-font
"*default"
(cons (make-char 'japanese-jisx0208 (car from) (cdr from))
(make-char 'japanese-jisx0208 (car to) (cdr to)))
font))))
> PS
> amd64導入を目論んでいるので、興味深く読ませて頂いております。少々不
> 安になりそうな…
Solaris 10 を使っていますが、amd64用に64-bitバイナリを作ろうとしても、
Emacs-22.0.50ができないので困っています。
--
NAKAJI Hiroyuki (中治 弘行)
