解决mac emacs 字体 方框问题

用了两次进行解决
第一次:
方案:
(set-default-font "-apple-STKaiti-medium-normal-normal-*-*-*-*-*-p-0-iso10646-1")
(set-face-attribute 'default (selected-frame) :height 155)
原理:
用现有的字体, 替换目前的字体
效果:
勉强可以接受, 其实是用楷体, 但是楷体的默认英文字体 奇丑无比
补充方案:
(defun cha-b()
(interactive)
(set-default-font "-apple-Heiti_SC-bold-normal-normal-*-*-*-*-*-p-0-iso10646-1")
(set-face-attribute 'default (selected-frame) :height 130))

(defun cha-a()
(interactive)
(set-default-font "-apple-Monaco-medium-normal-normal-*-*-*-*-*-m-0-iso10646-1"))
补充方案效果:
通过命令进行切换, 暂时解决问题. 但跟吃了苍蝇一样.
第二次:
方案:
(create-fontset-from-fontset-spec
"-apple-bitstream vera sans mono-medium-r-normal--12-*-*-*-*-*-fontset-mymonaco,
ascii:-apple-Monaco-medium-normal-normal-*-12-*-*-*-m-0-iso10646-1,
chinese-gb2312:-apple-STHeiti-medium-normal-normal-12-*-*-*-*-p-0-iso10646-1,
latin-iso8859-1:-apple-Monaco-medium-normal-normal-*-12-*-*-*-m-0-iso10646-1,
mule-unicode-0100-24ff:-apple-Monaco-medium-normal-normal-*-12-*-*-*-m-0-iso10646-1")

(setq default-frame-alist (append '((font . "fontset-mymonaco")) default-frame-alist))
(set-default-font "fontset-mymonaco")
原理:
自己配置个完整的字体方案, 中文和英文分开设置. 愿意用啥字体就啥字体
效果:
终于爽了.

参考
http://www.emacswiki.org/emacs/SetFonts#toc6
http://strickland.spaces.live.com/Blog/cns!3B996A2BC0C32C32!512.entry