🚀 go-pugleaf

$B$*$,$o!w6e=#7]=Q9)2JBg3X$H$b$&$7$^$9!%(B
In article <49miag$s8e@inunaki.csce.kyushu-u.ac.jp>,
Noguchi Yusuke <noguchi@csce.kyushu-u.ac.jp> wrote:
><KONDO.95Dec1144401@dialog.lily.dse.ibaraki.ac.jp>$B$N5-;v$K$*$$$F(B
>kondo@lily.dse.ibaraki.ac.jp$B$5$s$O=q$-$^$7$?!#(B
>
>>>   [Q] $B%^%&%9$G%F%-%9%H$N$"$k>l=j$K%^!<%/$7!$%I%i%C%0$7$?>uBV$G%j!<%8%g(B
>>>       $B%s$r;XDj$7$?;~$K!$$=$N%j!<%8%g%s$K?'$r$D$1$kJ}K!$O$"$j$^$9$+!)(B 
>
>$B$=$N%j!<%8%g%s$N?'$r@D$d@V$KJQ2=$5$;$kJ}K!$O$"$j$^$9$+(B?

(defun color-hook  ()
"hook for color redefinition"
  (cond (major-mode)
        ("text-mode" ())
        (t
         (progn
           ;; region
           (set-face-foreground 'region "#d7ee98")
           (set-face-background 'region "black")
           (set-face-bold-p     'region t)
           );progn
         )
        ) ; not text-mode
  ) ;; color-mode-hook
(add-hook 'find-file-hooks 'color-hook t)

$B$H$$$&$N$G$I$&$G$9$+!)(B
$B<B$O$b$&$9$3$7%9%^!<%H$JJ}K!$,(B
$B$"$j$=$&$J5$$O$9$k$N$G$9$,!%!%!%(B

$B!t$*$R$^$J$i(B http://www.kyushu-id.ac.jp/~a95m79/Env.html 
$B!t$G$b$N$>$$$F$_$F$/$@$5$$!%
-- 
/* $B>.@nM:44!J$*$,$o$f$&$-!K!w=oJ}8&5f<<(B			*
 * $B6e=#7]=Q9)2JBg3X(B $BGn;NA04|2]Dx#1G/(B $B>pJsEAC#@l96(B	*
 * E-Mail: a95m79@kyushu-id.ac.jp			*
 * WWW: http://www.kyushu-id.ac.jp/~a95m79/		*/