レス数が1000を超えています。残念ながら全部は表示しません。

navi2ch for emacs (part 4)

681 ：名無しさん＠お腹いっぱい。 ：02/01/24 22:47

Emacs21 で Mona fonts を使う時に、frame で使っているフォントと
同じサイズのが既定値だと嬉しいのですが。

Index: navi2ch-mona.el
===================================================================
RCS file: /cvsroot/navi2ch/navi2ch/navi2ch-mona.el,v
retrieving revision 1.4
diff -u -r1.4 navi2ch-mona.el
--- navi2ch-mona.el 2002/01/23 15:50:52 1.4
+++ navi2ch-mona.el 2002/01/23 16:48:35
@@ -53,7 +53,15 @@
(defvar navi2ch-mona-font "-mona-gothic-medium-r-*--16-*-p-*"))
((and (boundp 'emacs-major-version)
(>= emacs-major-version 21))
- (defvar navi2ch-mona-font "-mona-gothic-*-*-*--16-*-*-*-*-*-fontset-mona16"))
+ (defvar navi2ch-mona-font
+ (when window-system
+ (let ((font-size
+ (aref (fontset-info (cdr (assq 'font (frame-parameters))))
+ 1)))
+ (unless (memq font-size '(12 14 16))
+ (setq font-size 16))
+ (format "-mona-gothic-*-*-*--%d-*-*-*-*-*-fontset-mona%d"
+ font-size font-size)))))
)

;; mona 用の face を作成。

read.cgi ver5.26+ (01/10/21-)