2002年 12月 18日 (水)

等幅?

2002年08月29日にフォントの設定をして *表示* はイケていたワケで…。
メールの本文は auto-fill-mode と Emacs 標準(?) の禁則処理にお任せで，いわゆる『折り返し』なんて気にせず，文章作成に集中していたのだが…。
一生懸命テキストで *図* を描いて説明してくれているメールを読みながら，
『どうも，等幅フォントで表示されていないなぁ』
と，気付く。
// 実はうすうす気付いていたのだが，今まで脳内補完していたのだ。わはは。
こんな感じでイケた。微妙に設定ミスだったみたい。

;; フォントの設定
(create-fontset-from-fontset-spec
 (concat
  "-*-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-monaco16,"
  "japanese-jisx0208:-apple-osaka-medium-r-normal--16-160-75-75-m-160-jisx0208.1983-sjis,"
  "ascii:-apple-monaco-medium-r-normal-*-14-*-*-*-*-*-mac-roman"))
(set-default-font "fontset-monaco16")
;;(when (/= window-system 'x)
(setq default-frame-alist (append '((font . "fontset-monaco16"))))
;;)
;;解像度により上記が大きい場合は以下
;(create-fontset-from-fontset-spec
; (concat
;  "-*-fixed-medium-r-normal-*-12-*-*-*-*-*-fontset-monaco12,"
;  "japanese-jisx0208:-apple-osaka-medium-r-normal--14-140-*-m-140-jisx0208.1983-sjis,"
;  "ascii:-apple-monaco-medium-r-normal-*-12-*-*-*-*-*-mac-roman"))
;(set-default-font "fontset-monaco12")
;(setq default-frame-alist (append '((font . "fontset-monaco12"))))

参考 URL: http://sakito.s2.xrea.com/detail/emacs/emacs21.html
　
で，この際だからチェック用のテキストも用意する。newsgroup で時々見かけるヤツを抜粋。

◆ところで、あなたの画面で以下の行は、同じ幅に見えますか？
                                                                ← space
................................................................←
iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii←
WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW←
----------------------------------------------------------------←
――――――――――――――――――――――――――――――――←
‥‥‥‥‥‥‥‥‥‥‥‥‥‥‥‥‥‥‥‥‥‥‥‥‥‥‥‥‥‥‥‥←
ｉｉｉｉｉｉｉｉｉｉｉｉｉｉｉｉｉｉｉｉｉｉｉｉｉｉｉｉｉｉｉｉ←
椀椀椀椀椀椀椀椀椀椀椀椀椀椀椀椀椀椀椀椀椀椀椀椀椀椀椀椀椀椀椀椀←
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　← 空白

http://www.TAKEchon.NET/monologue/diary/tohaba.txt として保存もしておく。
Tweet