- 565 名前：554 mailto:sage [2007/12/25(火) 02:31:10 ID:Xd674q4z0]
- 今までフォントの設定の仕方を全く分かっていなかったのを，ちょっと反省しました、、
みなさんに触発されて色々調べ，こんな感じで行くことにしました．
(create-fontset-from-mac-roman-font
"-apple-monaco-medium-r-normal--12-*-*-*-*-*-iso10646-1" nil "myset")
(set-fontset-font "fontset-myset" 'japanese-jisx0208
'("小塚ゴシック Pro R" . "jisx0208.1983"))
(set-fontset-font "fontset-myset" 'katakana-jisx0201
'("小塚ゴシック Pro R" . "jisx0201.1976"))
(add-to-list 'face-font-rescale-alist
`(,(encode-coding-string ".*小塚ゴシック Pro R.*" 'emacs-mule) . 1.1))
(defun my-set-default-fontset (fontset)
(interactive ; borrowed from describe-fontset code
(if (not (and window-system (fboundp 'fontset-list)))
(error "No fontsets being used")
(let ((fontset-list (nconc
(fontset-list)
(mapcar 'cdr fontset-alias-alist)))
(completion-ignore-case t))
(list (completing-read
"Fontset: "
fontset-list nil t "fontset-")))))
(let ((old (assoc 'font default-frame-alist)))
(if old (setcdr old fontset)
(add-to-list 'default-frame-alist (cons 'font fontset))))
(set-frame-font fontset))
(my-set-default-fontset "fontset-myset")
小塚がしっくり来なかったらヒラギノに戻すことにします．
皆さん色々ありがとうございます．
|
 |
