Emacs org-mode实现中英文混排时表格对齐功能

gistfile1.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" 14 14)) 
(darwin 
(set-font "monofur" "STHeiti" 14 14)))