   (defun ns-raise-emacs-with-frame (frame)
     "Raise Emacs and select the provided frame."
     (with-selected-frame frame
-      (when (display-graphic-p)
-        (setup-font)
-        (ns-raise-emacs))))
+      (when (display-graphic-p) (ns-raise-emacs))))
+
   (add-hook 'after-make-frame-functions 'ns-raise-emacs-with-frame))
 
 ;; 默认 80 列自动换行, 需要 M-x auto-fill-mode 模式下

;; Created: Wed Dec  3 11:07:20 2014 (+0800)
;; Version: 1.0-alpha
;; Package-Requires: ()
;; Last-Updated: Tue Mar 10 10:45:50 2015 (+0900)
;;           By: enzo-liu
;;     Update #: 74
;; URL:
;; Doc URL:
;; Keywords:

    (set-fontset-font t 'hangul (font-spec :name "NanumGothicCoding"))
    (dolist (charset '(kana han symbol cjk-misc bopomofo))
      (set-fontset-font t charset (font-spec :name "Hiragino Sans GB")))
    (setq face-font-rescale-alist '(("Hiragino Sans GB" . 1.2) ("WenQuanYi Zen Hei" . 1.2))))
  ;; you may want to add different for other charset in this way.
  )

(defun mac-set-font (frame)
  (with-selected-frame frame
    (setup-font 140)))

(defun fedora-set-font (frame)
  (with-selected-frame frame
    (setup-font 95)))

(when (eq system-type 'darwin)
  (add-hook 'after-make-frame-functions 'mac-set-font))

(when (eq system-type 'gnu/linux)
  (add-hook 'after-make-frame-functions 'fedora-set-font))

(when (featurep 'ns)
  (defun ns-raise-emacs ()
