Meadow1.15をWindows10/64bitで使うときのメモ

なんでMeadow? それも古い1.15? って言われそうですが。。。

1. temacsの設定

temacs.exeのプロパティを出して、Windows7の互換モードで実行するように設定したうえで、MeadowNT.exeを作成します。

2. .emacsへのフォント設定追加

;; ;;; TrueType フォント設定
(w32-add-font "msgothic-ascii"
              '(;(default-ascent . 0)
                ;(relative-compose . 0)
                (encoding-type . 0)
                (overhang . 0)
                (base . 12)
                (height . 14)
                (width . 6)))

(w32-change-font-logfont "msgothic-ascii" 0
        '(w32-logfont "ＭＳ ゴシック" 0 -12 400 0 nil nil nil 128 1 3 49))
(w32-change-font-logfont "msgothic-ascii" 1
        '(w32-logfont "ＭＳ ゴシック" 0 -12 700 0 nil nil nil 128 1 3 49))
(w32-change-font-logfont "msgothic-ascii" 2
        '(w32-logfont "ＭＳ ゴシック" 0 -12 400 0 t nil nil 128 1 3 49))
(w32-change-font-logfont "msgothic-ascii" 3
        '(w32-logfont "ＭＳ ゴシック" 0 -12 700 0 t nil nil 128 1 3 49))

(w32-add-font "msgothic-katakana"
              '(;(default-ascent . 0)
                ;(relative-compose . 0)
                (encoding-type . 4)
                (overhang . 0)
                (base . 12)
                (height . 14)
                (width . 6)))
(w32-change-font-logfont "msgothic-katakana" 0
        '(w32-logfont "ＭＳ ゴシック" 0 -12 400 0 nil nil nil 128 1 3 49))
(w32-change-font-logfont "msgothic-katakana" 1
        '(w32-logfont "ＭＳ ゴシック" 0 -12 700 0 nil nil nil 128 1 3 49))
(w32-change-font-logfont "msgothic-katakana" 2
        '(w32-logfont "ＭＳ ゴシック" 0 -12 400 0 t nil nil 128 1 3 49))
(w32-change-font-logfont "msgothic-katakana" 3
        '(w32-logfont "ＭＳ ゴシック" 0 -12 700 0 t nil nil 128 1 3 49))

(w32-add-font "msgothic-jisx0208"
              '(;(default-ascent . 0)
                ;(relative-compose . 0)
                (encoding-type . 4)
                (overhang . 0)
                (base . 12)
                (height . 14)
                (width . 6)))
(w32-change-font-logfont "msgothic-jisx0208" 0
        '(w32-logfont "ＭＳ ゴシック" 0 -12 400 0 nil nil nil 128 1 3 49))
(w32-change-font-logfont "msgothic-jisx0208" 1
        '(w32-logfont "ＭＳ ゴシック" 0 -12 700 0 nil nil nil 128 1 3 49))
(w32-change-font-logfont "msgothic-jisx0208" 2
        '(w32-logfont "ＭＳ ゴシック" 0 -12 400 0 t nil nil 128 1 3 49))
(w32-change-font-logfont "msgothic-jisx0208" 3
        '(w32-logfont "ＭＳ ゴシック" 0 -12 700 0 t nil nil 128 1 3 49))

(new-fontset "fontset-msgothic" 
             '((ascii . "msgothic-ascii")
               (katakana-jisx0201 . "msgothic-katakana")
               (japanese-jisx0208 . "msgothic-jisx0208")))
(setq default-frame-alist (append (list '(foreground-color . "orange")
					'(background-color . "black")
					'(border-color . "white")
					'(mouse-color . "orange")
					'(cursor-color . "orange")
					'(ime-font . "msgothic-jisx0208")
					'(font . "fontset-msgothic")
					'(width . 96)
					'(height . 40))
				        default-frame-alist))