(create-fontset-from-fontset-spec
(concat (font-xlfd-name (font-spec :size 11.0 :registry "fontset-win10"))
", ascii:Consolas, burmese:Myanmar Text"))
(dolist (font '(
"游ゴシック Medium"
"メイリオ"
"Consolas"
"Courier New"
"Arial"
"Segoe UI Emoji"
"Segoe UI Symbol"
"Microsoft YaHei"
"Nirmala UI"
"Leelawadee UI"
"Gadugi"
"Microsoft Yi Baiti"
))
(set-fontset-font "fontset-win10" 'unicode
(font-spec :family font) nil 'append))
(add-to-list 'default-frame-alist '(font . "fontset-win10"))
