emacs-org-mode-tabl-chinese-align.elisp

emacs-org-mode-tabl-chinese-align.el

;;
(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 
  (gnu/linux 
   (set-face-bold-p 'bold nil) 
   (set-face-underline-p 'bold nil) 
   (set-font "monofur" "vera Sans YuanTi Mono" 20 20)) 
  (darwin 
   (set-font "monofur" "STHeiti" 20 20))
  (windows-nt
   (set-face-bold-p 'bold nil) 
   (set-face-underline-p 'bold nil) 
   (set-font "monofur" "vera Sans YuanTi Mono" 20 20)))

this is the final solution

(set-face-attribute
'default nil :font "Consolas 14")
;; Chinese Font
(dolist (charset '(kana han symbol cjk-misc bopomofo))
(set-fontset-font (frame-parameter nil 'font)
charset
(font-spec :family "Microsoft Yahei" :size 20)))