emacs org mode only cjkv font

  (defun org-buffer-face-mode-variable ()
    (interactive)
    (let ((fontset-monospace-cjkv (create-fontset-from-fontset-spec
                                   (concat "-*-*-*-*-*--*-*-*-*-*-*-fontset-monospacecjkv"
                                           ""))))
      (dolist (charset '(latin kana han cjk-misc bopomofo))
        (set-fontset-font fontset-monospace-cjkv
                          charset
                          (font-spec :family "Sarasa Mono SC" :size 18)))
      (make-face 'org-cjkv)
      (set-face-attribute 'org-cjkv nil
                          ;;:font fontset-monospace-cjkv
                          :fontset fontset-monospace-cjkv)
      (setq buffer-face-mode-face 'org-cjkv)
      (buffer-face-mode)))
  (add-hook 'org-mode-hook 'org-buffer-face-mode-variable)