日記みたいな何か

Emacs23をX上で使ってみたら一部の記号 (「α」とか「±」とか) が半角幅で全然違うフォントで描画されることに気づいてしまったため，どうにかして直してみました．ググってもそのものズバリは見つけられなかったんですが，何となく似たようなのを色々と混ぜて↓の形で一応解決．Emacs23なのに何でお前は東雲を使ってるのかという話もありますがｗ

;; ↓は元からあった部分
(create-fontset-from-fontset-spec
   "-shinonome-gothic-medium-r-normal--16-*-*-*-*-*-fontset-shinonome_16,
    ascii:-shinonome-gothic-medium-r-normal--16-*-iso8859-1,
    japanese-jisx0201:-shinonome-gothic-medium-r-normal--16-*-jisx0201.1976-0,
    japanese-jisx0208:-shinonome-gothic-medium-r-normal--16-*-jisx0208.1990-0")

(set-to-alist 'font "fontset-shinonome_16" 'default-frame-alist)

;; ↓を書き足し
(if (and (>= emacs-major-version 23) window-system)
    (mapcar '(lambda (x)
               (set-fontset-font "fontset-shinonome_16"
                                 (if (atom x)
                                     (cons x x)
                                   x)
                                 "-shinonome-gothic-medium-r-normal--16-*-*-*-*-*-jisx0208.1990-0"
                                 nil 'append))
            '((#xa2 . #xa3)
              (#xa7 . #xa8)
              #xac
              (#xb0 . #xb1)
              #xb4
              #xb6
              #xd7
              #xf7
              (#x0370 . #x03ff)
              (#x0400 . #x04ff)
              (#x2000 . #x206F)
              (#x2100 . #x214F)
              (#x2190 . #x21FF)
              (#x2200 . #x22FF)
              (#x2300 . #x23FF)
              (#x2500 . #x257F)
              (#x25A0 . #x25FF)
              (#x2600 . #x26FF)
              (#x2e80 . #xd7a3)
              (#xff00 . #xffef)
              )
           )
)

文字の範囲はEmacs22でutf-translate-cjk-set-unicode-rangeに設定するとよいとされているものをそのまま使用しています．何か後ろの方の範囲がちょっと広いような気もするけど・・・．

ちなみに，「変なフォントで描画されるなー」と思ったらその文字の上にカーソル持っていって M-x describe-char とかやると，それがどの文字で，どんなフォントで描画されているかが確認できたりします．あと，M-x describe-fontset RET とかやると，どのコードがどのフォントで描画されるかを確認できたりします．覚えておくと便利かも．