ms-fonts-ja パッケージとは何?

さまざまなサイズのMSゴシックとMS明朝フォントの設定を おこなうパッケージです。

• Discription: TrueType? font - variable size of MS-gothic and MS-mincho.
• Category: font
• Require: PkgMeadow
• URL: -

MSゴシックとMS明朝, Courier New を使います。

auto-autoloads.el

Meadow の元の NTEmacs もパッケージしているため Meadow と NTEmacs の両方のフォント設定をしています。

(cond
 ((featurep 'meadow)
;;; for Meadow

  (let ((define-font
	  (function 
	   (lambda (fn sz)
	     (let (fsn fss)
	       (setq fsn (format "%s %d" fn sz))
	       (setq sz (- sz))
	       (setq fss
		     `((spec
			((:char-spec ascii :height any)
			 strict
			 (w32-logfont ,fn 0 ,sz 400 0 nil nil nil 0 1 3 0))
			((:char-spec ascii :height any :weight bold)
			 strict
			 (w32-logfont ,fn 0 ,sz 700 0 nil nil nil 0 1 3 0)
			 ((spacing . -1)))
			((:char-spec ascii :height any :slant italic)
			 strict
			 (w32-logfont ,fn 0 ,sz 400 0   t nil nil 0 1 3 0))
			((:char-spec ascii :height any :weight bold :slant italic)
			 strict
			 (w32-logfont ,fn 0 ,sz 700 0   t nil nil 0 1 3 0)
			 ((spacing . -1)))
			((:char-spec japanese-jisx0208 :height any)
			 strict
			 (w32-logfont ,fn 0 ,sz 400 0 nil nil nil 128 1 3 0))
			((:char-spec japanese-jisx0208 :height any :weight bold)
			 strict
			 (w32-logfont ,fn 0 ,sz 700 0 nil nil nil 128 1 3 0)
			 ((spacing . -1)))
			((:char-spec japanese-jisx0208 :height any :slant italic)
			 strict
			 (w32-logfont ,fn 0 ,sz 400 0   t nil nil 128 1 3 0))
			((:char-spec japanese-jisx0208 :height any :weight bold :slant italic)
			 strict
			 (w32-logfont ,fn 0 ,sz 700 0   t nil nil 128 1 3 0)
			 ((spacing . -1))))))
	       (if (w32-list-fonts fsn)
		   (w32-change-font fsn fss)
		 (w32-add-font fsn fss))
	       )))
	  ))
    (funcall define-font "MS Gothic" 10)
    (funcall define-font "MS Gothic" 12)
    (funcall define-font "MS Gothic" 14)
    (funcall define-font "MS Gothic" 16)
    (funcall define-font "MS Gothic" 18)
    (funcall define-font "MS Gothic" 20)
    (funcall define-font "MS Gothic" 22)
    (funcall define-font "MS Mincho" 10)
    (funcall define-font "MS Mincho" 12)
    (funcall define-font "MS Mincho" 14)
    (funcall define-font "MS Mincho" 16)
    (funcall define-font "MS Mincho" 18)
    (funcall define-font "MS Mincho" 20)
    (funcall define-font "MS Mincho" 22))

  ;;(set-face-attribute 'variable-pitch nil :family "*")
  ;;(set-face-attribute 'fixed-pitch nil :family "*")

  (unless (assoc 'font default-frame-alist)
    (setq default-frame-alist 
	  (add-to-list 'default-frame-alist `(font . "MS Gothic 16")))))
(t
;;; for NTEmacs

 (create-fontset-from-fontset-spec
  "-*-Courier New-normal-r-*-*-13-*-*-*-c-*-fontset-TT,
latin-jisx0201:-sony-fixed-medium-r-normal--16-*-*-*-*-*-jisx0201.1976-0,
japanese-jisx0208:-outline-ＭＳ ゴシック-normal-r-normal-normal-16-*-*-*-*-*-jisx0208-sjis" t t)

  (unless (assoc 'font default-frame-alist)
    (setq default-frame-alist 
	  (add-to-list 'default-frame-alist `(font . "fontset-TT")))))
 )

~/.emacs

default-frame-alist に '(font . "....") の記載があればそれを使います。 記載がない場合には “MS Gothic 16” を設定します。

「SHIFT + マウス右クリック」で以下のサイズ、フォントを選択可能です。

MS Mincho 22
MS Mincho 20
MS Mincho 18
MS Mincho 16
MS Mincho 14
MS Mincho 12
MS Mincho 10
MS Gothic 22
MS Gothic 20
MS Gothic 18
MS Gothic 16
MS Gothic 14
MS Gothic 12
MS Gothic 10

Netinstall が設定する default のフォントを変更したい場合は、 default-frame-alist に '(font . "....") と設定します。

他必要なファイル

特にありません。

スクリーンショット

日本語、ASCII文字 しか設定していないので C-h h で HELLO ファイルを表示した場合は以下のようにほどんどの 言語が「豆腐」のように表示されます。

多言語表示を行う場合は Meadow2.11 では intlfontsパッケージ を、 Meadow3.00 では mule-fontsパッケージをを使ってください。