wellown

(eval-when-compile (require 'cl)) 

(defun set-font (english chinese english-size chinese-size) 
(set-face-attribute 'default nil :font 
(format "%s:pixelsize=%d" english english-size)) 
(dolist (charset '(kana han symbol cjk-misc bopomofo)) 
(set-fontset-font (frame-parameter nil 'font) charset 
(font-spec :family chinese :size chinese-size)))) 

(ecase system-type