原来一直没有找到怎么设置,昨天从一个日本网站上抄了一段,貌似工作比较良好:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
(when (eq window-system 'ns)
(let ((my-font-height 140)
(my-font (cond
(t "Monaco") ;; XCode 3.1
(nil "Menlo") ;; XCode 3.2
))

(my-font-ja "STHeiti"))


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


(when my-font
(set-face-attribute 'default nil :family my-font :height my-font-height)
;;(set-frame-font (format "%s-%d" my-font (/ my-font-height 10)))
)


(when my-font-ja
(let ((fn (frame-parameter nil 'font))
(rg "iso10646-1"))

(set-fontset-font fn 'chinese-gb2312 `(,my-font-ja . ,rg))
(set-fontset-font fn 'chinese-gbk `(,my-font-ja . ,rg))))
)
)

;; (set-fontset-font fn 'unicode `(,my-font-ja . ,rg))))))
知识共享授权条款
本著作Chen, Zai-Chun制作,以知识共享 姓名标示-相同方式分享 4.0 国际 授权条款释出

留言

Dec 30 2011