Skip to content

Instantly share code, notes, and snippets.

@noqisofon

noqisofon/ms-gothic-13.el

Created November 16, 2010 02:07
Show Gist options
  • Save noqisofon/701315 to your computer and use it in GitHub Desktop.
Save noqisofon/701315 to your computer and use it in GitHub Desktop.
Download ZIP
MS Gothic フォントセットを追加します。
Raw
ms-gothic-13.el
;; フォントセットを追加します。
(w32-add-font "MS Gothic 13"
'((spec
((:char-spec ascii :height any)
strict
(w32-logfont "MS Gothic" 0 -13 400 0 nil nil nil 0 1 3 0))
((:char-spec ascii :height any :weight bold)
strict
(w32-logfont "MS Gothic" 0 -13 700 0 nil nil nil 0 1 3 0)
((spacing . -1)))
((:char-spec ascii :height any :slant italic)
strict
(w32-logfont "MS Gothic" 0 -13 400 0 t nil nil 0 1 3 0))
((:char-spec ascii :height any :weight bold :slant italic)
strict
(w32-logfont "MS Gothic" 0 -13 700 0 t nil nil 0 1 3 0)
((spacing . -1)))
((:char-spec japanese-jisx0208 :height any)
strict
(w32-logfont "MS Gothic" 0 -13 400 0 nil nil nil 128 1 3 0))
((:char-spec japanese-jisx0208 :height any :weight bold)
strict
(w32-logfont "MS Gothic" 0 -13 700 0 nil nil nil 128 1 3 0)
((spacing . -1)))
((:char-spec japanese-jisx0208 :height any :slant italic)
strict
(w32-logfont "MS Gothic" 0 -13 400 0 t nil nil 128 1 3 0))
((:char-spec japanese-jisx0208 :height any :weight bold :slant italic)
strict
(w32-logfont "MS Gothic" 0 -13 700 0 t nil nil 128 1 3 0)
((spacing . -1))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment