bitmap-mule って何?
TracNav menu
-
パッケージ一覧
-
基本パッケージ
- Meadow
- ImageMagick
- misc
-
開発
- css-mode
- javascript-mode
- jdee
- elib
- ecb
- cedet
- emacs-rails
- ruby-mode
- scala-mode
- yaml-mode?
-
フォント
- bitmap-mule
- mule-fonts(Meadow 3)
- intlfonts(Meadow2)
- ms-fonts-ja
-
ゲーム
- チェス
- 倉庫番
- SUDOKU(数独)
-
日本語マニュアル
- Emacs?
- Emacs Lisp Intro?
- Emacs Lisp?
- Gnus Manual?
-
ライブラリ
- APEL
- FLIM
- SEMI
- Mule-UCS
-
Message User Agent (MUA)
- Gnus
- Mew
- Wanderlust
-
MUAに付加して使うもの
- BBDB
- LSDB
- c-sig
- mu-cite
- x-cite
- x-face
- mixi?
-
The Origin
- NTEmacs
-
Utils
- Goby
- AUCTex
- Elscreen
- gnuserv
- Emacs-w3m
- hiki-mode
- hnf-mode
- html-helper-mode
- howm
- ispell?
- japanese-holidays
- lookup?
- migemo
- navi2ch
- psvn
- pukiwiki-mode
- session
- SKK
- anthy
- tDiary-mode
- YaTeX
- mmm-mode?
- color-moccor
- riece?
- rd-mode?
- auto-save-bufferes-ex?
- twittering-mode
- Meadow Netinstallとはなにか?
- インストール
- ディレクトリ構成
- パッケージの作り方
- Description: bitpmap mule font.
- Category: font
- Require:
- URL: http://www.jpl.org/elips/bitmap/
auto-autoloads.el
(require 'bitmap)
(add-hook 'emacs-startup-hook
(lambda ()
(let ((flst (w32-font-list))
(bitmap (cdr (car
(mw32-convert-font-request-alist
`((spec
((:char-spec bitmap :height any :weight any :slant any)
strict
(bdf-font ,(expand-file-name "../packages/fonts/bitmap/bitmap16.bdf"
data-directory)))))))))
fset info spec len)
(while (setq fset (car flst))
(setq flst (cdr flst))
(setq info (w32-get-font-info fset))
(when (setq spec (assq 'spec info))
(setq len (length spec))
(setcdr (nthcdr (1- len) spec) bitmap))
(w32-change-font-attribute-internal fset info)))))
