[Mew-dist 2558] Re: select-xface.el v0.05

[SAITO Tetsuya ( さいとてつや )]

さいとです。

やっと X-Face 関連のメールに目を通して、表示までこぎつけました。

Subject: [Mew-dist 2537] Re: select-xface.el v0.05
Date: Thu, 16 Oct 1997 23:11:24 +0900 (JST)
Message-Id: <19971016231124-683B.fuji0924 at example.com>

OKUNISHI Fujikazu <fuji0924 at example.com> writes: 
fuji0924> それと 16ドット以外で bitmap フォントを使うために
fuji0924> 
fuji0924> ;;  bitmap-mule,x-face-mule
fuji0924> ;;
fuji0924> (cond (window-system
fuji0924>  (require 'bitmap)
fuji0924>  (set-fontset-font
fuji0924>    "14" charset-bitmap
fuji0924>    "-etl-fixed-medium-r-*--16-*-100-100-m-*-bitmap.8x16-0")
fuji0924>  (set-fontset-font
fuji0924>    "20" charset-bitmap
fuji0924>    "-etl-fixed-medium-r-*--16-*-100-100-m-*-bitmap.8x16-0")))
fuji0924> 
fuji0924> などと ~/.emacs に書いておけば 14/20 でもいちおう表示することはできます。
fuji0924> ;; 20ドット用の bitmap フォントを誰か作ってくださらないかなあ。(^_^;

Emacs 20.2 だとこの設定が使えないのですが、どうすれば 14 ドットで表示
できるようになりますか?

フォントの設定は以前かずさんに教えてもらって

(cond ((string-match "^20" emacs-version)
       (cond ((eq window-system 'x)
	      (setq standard-fontset-spec14
		    "-*-fixed-medium-r-normal-*-14-*-*-*-*-*-fontset-standard")
	      (create-fontset-from-fontset-spec standard-fontset-spec14 nil 'noerror)
	      (set-default-font standard-fontset-spec14))
	     (t
	      (set-terminal-coding-system 'junet)))
      (setup-japanese-environment)))

というふうにしています。

-- 
さいとてつや <saito at example.com>