set-face-font
- フォントの設定
-
http://plaza28.mbn.or.jp/~kitaj/XEmacs/customize/fonts.html
- XEmacsではテキストフォントとして多彩なフォントが使えます...
-
http://www.imasy.or.jp/~kazz/xemacs/custom/font
~/.Xresource でなく、~/.emacs で書体を設定する。
set-face-font is an interactive compiled Lisp function in `faces'.
(set-face-font FACE FONT &optional FRAME)
Change font-related attributes of FACE to those of FONT (a string).
FRAME nil or not specified means change face on all frames.
This sets the attributes `:family', `:width', `:height', `:weight',
and `:slant'. When called interactively, prompt for the face and font.
FONT で指定した書体について、 FACE のうち、書体に関係のある属性
を変更する。
FRAME に nil と書くか、無指定の場合には、全ての枠での変更になる。
この変更は、
`:family', `:width', `:height', `:weight',`:slant' に効く。
対話的に呼ばれた場合には、face と書体を聞いて来る。
(if (eq (console-type) 'x)
(progn
(set-face-font
'default
'("-*-*-medium-*-*--12-*-jisx0201.1976-*"
"-*-*-medium-*-*--12-*-jisx0208.1983-*"
"-*-*-medium-*-*--12-*-jisx0212*-*")
'global '(mule-fonts) 'prepend)
;; 2001.09.30 bold, italic を追加。
(set-face-font
'bold
'("-mona-gothic-bold-r-normal--12-110-75-75-p-60-jisx0201.1976-0"
"-mona-gothic-bold-r-normal--12-110-75-75-p-120-jisx0208.1990-0"))
(set-face-font
'italic
'("-mona-gothic-medium-i-normal--12-110-75-75-p-60-jisx0201.1976-0"
"-mona-gothic-medium-i-normal--12-110-75-75-p-120-jisx0208.1990-0"))
(set-face-font
'bold-italic
'("-mona-gothic-bold-i-normal--12-110-75-75-p-60-jisx0201.1976-0"
"-mona-gothic-bold-i-normal--12-110-75-75-p-120-jisx0208.1990-0"))
))
| 