メッセージ。 - NTEmacsのフォント設定
# NTEmacsのフォント設定
デフォルトでは、半角/全角フォントの区別がつかなかったので設定を変更した。ただ、この作業をするのに(設定変更の方法をよく理解していなからだろうけど)ちょっと苦労した。思考停止でググって、次のサイトで紹介されているようにしたらうまくいった。
http://miyoshi.meadowy.org/NTEmacs21/
(let ((jfont "-*-MS ゴシック-*-*-*-*-*-*-*-*-*-*-jisx0208-sjis")
(specs '(latin-jisx0201 katakana-jisx0201 japanese-jisx0208)))
(create-fontset-from-fontset-spec
(concat "-*-Courier New-*-*-*-*-14-*-*-*-*-*-fontset-std,"
(mapconcat (lambda (x) (format "%s:%s" x jfont)) specs ",")))
(while specs
(set-fontset-font "fontset-std" (make-char (car specs))
'("MS ゴシック" . "jisx0208-sjis"))
(setq specs (cdr specs))))
(setq default-frame-alist
(append '(
;; 設定した fontset-std を利用する。
(font . "fontset-std")
;; 日本語変換中のフォントの設定
;; TrueType フォントの動作しか確認していない
(ime-font . "-*-MS ゴシック-*-*-*-*-16-*-*-*-*-*-jisx0208-sjis"))
default-frame-alist))
<<
http://miyoshi.meadowy.org/NTEmacs21/
(setq scalable-fonts-allowed t)>
(let ((jfont "-*-MS ゴシック-*-*-*-*-*-*-*-*-*-*-jisx0208-sjis")
(specs '(latin-jisx0201 katakana-jisx0201 japanese-jisx0208)))
(create-fontset-from-fontset-spec
(concat "-*-Courier New-*-*-*-*-14-*-*-*-*-*-fontset-std,"
(mapconcat (lambda (x) (format "%s:%s" x jfont)) specs ",")))
(while specs
(set-fontset-font "fontset-std" (make-char (car specs))
'("MS ゴシック" . "jisx0208-sjis"))
(setq specs (cdr specs))))
(setq default-frame-alist
(append '(
;; 設定した fontset-std を利用する。
(font . "fontset-std")
;; 日本語変換中のフォントの設定
;; TrueType フォントの動作しか確認していない
(ime-font . "-*-MS ゴシック-*-*-*-*-16-*-*-*-*-*-jisx0208-sjis"))
default-frame-alist))
<<
Comment
Trackback