bitmap-insert-xbm-file

[Yasushi Taki <taki@xxxxxxxxxxxxxx>]

瀧@ジャストプレイヤーです。
最近、EMACS環境設定の波が来ているようで、立て続けに質問しています。

さて、今回の最終的な目的はlookupで外字を表示したいというものなのですが、
まずは問題を切り分けようと、bitmap-insert-xbm-fileを利用して、ビットマッ
プを表示しようと考えました。

googleなどで検索するとものすごい数がヒットするので、きっとこれは、FAQな
のだと思うのですが、未だに具体的な成功が出来ません。

bitmap-muleのパッケージに添付されていた、gnus.xbmを表示しようとすると、
白い豆腐でbannerを使ったように「gnus」のロゴがかかれるというものです。
形は明らかにgnusのロゴなのです。

この症状は検索の途中、どっかのページにもありましたが、具体的な解決方法は
見いだせませんでした。

インストールは次のように行いました。
http://www.boreas.dti.ne.jp/~miyoshi/Meadow/elisp2.html#bitmap-mule
ここのページを参考にさせていただき、
compface/uncompface、bdfresizeのコンパイルが成功しAPELも入れたつもりです。

それぞれのバージョンは次の通りです。
Meadow		Version 1.15
bitmap-mule	8.4
compface	1.4
bdfresize	1.5	cygnus patch入り

いずれも問題なく、インストールできているように見えます。
bdfresize、compfaceをどこからか拾ってきてた物をつかったのでそれが悪いの
かと思い、cygnusをほぼフルセットでインストールし、そのコンパイルをしまし
たが、特別な問題は出てないように見えます。

そして、.emacsは次の通りです。（一部抜粋）

;; ----------------------------------------------------ウインドウの概観の設定

(if (fboundp 'Meadow-version)
    (progn
      (setq win32-lbutton-to-emacs-button 0)  ; マウスの設定
      (setq win32-mbutton-to-emacs-button 1)
      (setq win32-rbutton-to-emacs-button 2)
      ;;
      ;; IME-Setting
      (setq default-input-method "MW32-IME")
      (set-input-method "MW32-IME")
      ;; IME ONでカーソルの色を変える。
      (add-hook 'mw32-ime-on-hook
		(lambda () (set-cursor-color "brown")))
      (add-hook 'mw32-ime-off-hook
		(lambda () (set-cursor-color "black")))
      ;; modelineにIMEの状態を表示
      (setq mw32-ime-mode-line-state-indicator "[--]")
      (setq mw32-ime-mode-line-state-indicator-list '("--" "[日]" "[--]"))
      (mw32-ime-initialize)		  ; Windows IME
      
      (let ((font "Nihongo-16")
	    (logfont
	     '(w32-logfont "ヒラギノ明朝体2等幅" 0 -17 400 0 nil nil nil 128 1 3 49))
	    (logfonti
	     '(w32-logfont "ヒラギノ角ゴ2等幅" 0 -17 400 0 nil nil nil 128 1 3 49)))
	(create-font-from-logfont-list
	 font
	 (list logfont
	       (w32-change-logfont-weight logfont 300)
	       logfonti
	       (w32-change-logfont-weight logfonti 300))
	 4))

      (let ((font "Times-16")
	    (logfont
	     '(w32-logfont "ヒラギノ明朝体2等幅" 0 -17 400 0 nil nil nil 128 1 3 49))
	    (logfonti
	     '(w32-logfont "ヒラギノ角ゴ2等幅" 0 -17 400 0 nil nil nil 128 1 3 49)))
	(create-font-from-logfont-list
	 font
	 (list logfont
	       (w32-change-logfont-weight logfont 300)
	       logfonti
	       (w32-change-logfont-weight logfonti 300))
	 4))

      (new-fontset "Nihongo-16-set"
		   '(
		     (ascii . "Times-16")
		     (japanese-jisx0208 . "Nihongo-16")
		     (latin-jisx0201 . "Nihongo-16")
		     (katakana-jisx0201 . "Nihongo-16")
;;		     (ime-font . "Nihongo-16")
		     ))
      (setq default-frame-alist
	    (append
	     (list'(foreground-color . "blue")
		  '(background-color . "gray85")
		  '(border-color . "black")
		  '(mouse-color . "white")
		  '(cursor-color . "blue")
		  '(width . 80)
		  '(height . 50);
		  '(top . 0)
		  '(left . 84)
		  '(ime-font  . "Nihongo-16")
		  '(font . "Nihongo-16-set")
		  )
	     default-frame-alist))
      )
  (progn				; Meadow(Windows)以外の画面設定
    (set-cursor-color "blue")		; カーソルの色
    (set-background-color "gray85")	; バックグラウンドカラー
    (set-foreground-color "blue4")	; 文字カラー
    )
)

;; ------------------------------------------------------------ bitmap-mule
;; (setq load-path (cons "~/emacs/lisp/bitmap" load-path))
(require 'bitmap)

(setq bdf-font-directory "~/emacs/font/bdf/")
(w32-auto-regist-bdf-font "bitmap-16"
    (concat bdf-font-directory "bitmap16.bdf"))
(set-fontset-font
    "Nihongo-16-set" 'bitmap "bitmap-16")



------------------

トラブルシュートの方法がいまいちわかってないので、闇雲にパターンを追って
いるのですが、どこかでエラーがでているか、見ることは出来ないのでしょうか？

それと、bitmap-muleとフォントの設定などは、（今回の私の目的では最終的に
は必要なものですが）、今は別の問題かと考えているのですが、問題の切り分け
的に合っているんでしょうか？
それともビットマップの表示にもフォント設定が絡んでくるんでしょうか？

FAQっぽくて申し訳ないんですが、どうも、ハマってしまいよくわからなくなっ
てしまいました。

------------------
(有)ジャストプレイヤー
瀧　康史
E-mail:taki@xxxxxxxxxxxxxx
TEL:0543-69-4110
FAX:0543-69-4124
http://www.justplayer.com/