Font configuration (Andale Mono + Hiragino Kaku Go) for Emacs 23

init-font-andale-mono-kakugo-12.el

(setq fixed-width-use-QuickDraw-for-ascii t)
(setq mac-allow-anti-aliasing t)
(set-face-attribute 'default nil
		    :family "andale mono"
		    :height 120)
 ;;; Unicode フォント
(set-fontset-font
 (frame-parameter nil 'font)
 'mule-unicode-0100-24ff
 '("andale mono" . "iso10646-1"))
;;; キリル，ギリシア文字設定
;;; 注意： この設定だけでは古代ギリシア文字、コプト文字は表示できない
;;; http://socrates.berkeley.edu/~pinax/greekkeys/NAUdownload.html が必要
;;; キリル文字
(set-fontset-font
 (frame-parameter nil 'font)
 'cyrillic-iso8859-5
 '("andale mono" . "iso10646-1"))
;;; ギリシア文字
(set-fontset-font
 (frame-parameter nil 'font)
 'greek-iso8859-7
 '("andale mono" . "iso10646-1"))

(set-fontset-font
 (frame-parameter nil 'font)
 '(#x21e7 . #x21e7)
 '("Apple Monaco" . "iso10646-1"))

(set-fontset-font
 (frame-parameter nil 'font)
 '(#x2300 . #x23ff)
 '("Apple Monaco" . "iso10646-1"))

;;; 日本語の文字
(set-fontset-font
 (frame-parameter nil 'font)
 '(#x2150 . #x218f)
 '("Hiragino Kaku Gothic Pro" . "iso10646-1"))
(set-fontset-font
 (frame-parameter nil 'font)
 '(#x2460 . #x24ff)
 '("Hiragino Kaku Gothic Pro" . "iso10646-1"))
(set-fontset-font
 (frame-parameter nil 'font)
 '(#x2600 . #x26ff)
 '("Hiragino Kaku Gothic Pro" . "iso10646-1"))
(set-fontset-font
 (frame-parameter nil 'font)
 '(#x2700 . #x27bf)
 '("Hiragino Kaku Gothic Pro" . "iso10646-1"))
(set-fontset-font
 (frame-parameter nil 'font)
 '(#x3200 . #x32ff)
 '("Hiragino Kaku Gothic Pro" . "iso10646-1"))
(set-fontset-font
 (frame-parameter nil 'font)
 'latin-jisx0201
 '("Hiragino Kaku Gothic Pro" . "iso10646-1"))
(set-fontset-font
 (frame-parameter nil 'font)
 'katakana-jisx0201
 '("Hiragino Kaku Gothic Pro" . "iso10646-1"))
(set-fontset-font
 (frame-parameter nil 'font)
 'japanese-jisx0208-1978
 '("Hiragino Kaku Gothic Pro" . "iso10646-1"))
(set-fontset-font
 (frame-parameter nil 'font)
 'japanese-jisx0208
 '("Hiragino Kaku Gothic Pro" . "iso10646-1"))
(set-fontset-font
 (frame-parameter nil 'font)
 'japanese-jisx0212
 '("Hiragino Kaku Gothic Pro" . "iso10646-1"))

(setq face-font-rescale-alist
      '(("^-apple-hiragino.*" . 1.1)
	(".*osaka-bold.*" . 1.1)
	(".*osaka-medium.*" . 1.1)
	(".*courier-bold-.*-mac-roman" . 1.0)
	(".*monaco cy-bold-.*-mac-cyrillic" . 0.9)
	(".*monaco-bold-.*-mac-roman" . 0.9)
	("-cdac$" . 1.3)))