🚀 go-pugleaf

$BEDCf$H?=$7$^$9!#(B

Meadow Ver.1.00 $B$^$?$O(B Ver.1.01 $B$r(B
Windows98 $B$N%Q%=%3%s$K%$%s%9%H!<%k$7$h$&$H$7$F;n$7$F$$$^$9$,!"(B
$B%U%)%s%H$N@_Dj$G(B
$B:$$C$?$3$H$,$"$k$N$G$G$-$l$P$*CN7C$r$*B_$72<$5$$!#(B

Meadow Ver.1.00 ($B$^$?$O(B1.01) $B$r0lDL$j%$%s%9%H!<%k$7!"(B
$B$3$*$j$d$^$5$s$N(Bweb site
http://www02.u-page.so-net.ne.jp/ba2/kory/emacs/meadow.html
$B$r;29M$K!"2<$N$h$&$J(B .emacs $B$rMQ0U$7!"5/F0$9$k$H(B
modeline$B$H(Bmini buffer$B$,8=$l$J$/$J$C$F$7$^$$$^$9!#(B

.emacs$B$r:o=|$7$F5/F0$9$k$H!"(B
$B$^$H$b$K(Bmodeline$B$H(Bmini buffer$B$,0l9T$:$D$A$c$s$H8=$l$F(B
$B$^$H$b$JF0:n$N$h$&$G$9!#(B

$B2?$,$$$1$J$$$N$G$7$g$&$+(B?


$B$^$?!"(BMule for Windows$B$N$H$-$K$"$C$?(B
change-font-dialog$B$H$$$&%3%^%s%I$O$J$/$J$C$?$N$G$7$g$&$+(B?
$BBe$o$j$NF15!G=$N$b$N$O$J$K$+$"$k$N$G$9$+(B?


$B$I$&$+$h$m$7$/$*4j$$$7$^$9!#(B

---begin---
;;; font setting for Meadow
(cond ((eq window-system 'w32)
(let ((font "Courier-12"))
  (w32-add-font font
		'((encoding-type . 0)
		  (charset-num . 0)
		  (overhang . 7)
		  (base . 12)
		  (height . 16)
		  (width . 7)))
  (w32-change-font-logfont
   font 0 
   '(w32-logfont "Courier New" 0 -12 400 0 nil nil nil 0 1 3 49))
  (w32-change-font-logfont 
   font 1 
   '(w32-logfont "Courier New" 0 -12 700 0 nil nil nil 0 1 3 49))
  (w32-change-font-logfont
   font 2
   '(w32-logfont "Courier New" 0 -12 400 0 t nil nil 0 1 3 49))
  (w32-change-font-logfont
   font 3
   '(w32-logfont "Courier New" 0 -12 700 0 t nil nil 0 1 3 49)))

(new-fontset "private-fontset" '((ascii . "Courier-12")
))
))   

(setq default-frame-alist
      (append (list
	       '(font . "private-fontset")
	       )
	      default-frame-alist))
---end---
--
// $BEDCf!!Bv<$!!!!!!(B($B3t(B)$BIY;NDL8&5f=j(B $B4pHW5;=Q8&5f=j(B $B5!G=%G%P%$%98&5fIt(B
// TANAKA Takuji, PhD    Fujitsu Laboratories Ltd.
// tt@flab.fujitsu.co.jp