🚀 go-pugleaf

$B?9K\!w%U%j!<%@%`$G$9(B

> $B$3$s$J$3$H$G$O$$$+!<$s!#$H$$$&$3$H$G8=:_(B 20.4 $B$r(B ftp $B$7$F$*$j$^$9!#(B
> xemacs $B$N5!G=$r%P%j%P%j$D$+$C$?%P!<%8%g%s$O!"$$$D$K$J$k$+$o$+$j$^$;$s$,(B
> $B$H$j$"$($:F0$/$C$FE[$J$i6aF|Cf$K8x3+$G$-$k$H;W$$$^$9!#(B

$B$[$s$H$K(B $B$H$j$"$($:$N%b%N$K$J$C$F$7$^$$$^$7$?$,!"(Bxemacs-20.4 $B$G$b(B
$BF0$/$b$N$,$G$-$^$7$?!#(B

$B$[$s$N0lIt$NJQ99$J$N$H(B xemacs $B$N(B $B$*:nK!$H$+$h$/$o$+$i$s$^$^$K$D$/$C$?$s$G(B
$B:9J,$@$1$K$7$F$*$-$^$9!#(B

xcal-19.el $B$N:G=i$NJ}$K(B
    (let (face)
      (setq face (make-face 'region))
      (set-face-background face "gray")
    )
$B$rDI2C$7$F(B

$B2<$N$[$&$K$"$k(B xcal-lookup-ace-create $B4X?t$r(B

(defun xcal-lookup-face-create (face)
  (cond ((eq face 'underline) 'underline)
	((eq face 'region)    'region)
	((and (eq window-system 'x) (x-display-color-p))
	 (make-face face)
	 (let (face-str)
	   (setq face-str (symbol-name face))
	   (string-match "^\\([A-Za-z0-9]+\\)" face-str)
	   (set-face-foreground
	    face
	    (substring face-str (match-beginning 1)(match-end 1)))
	   (set-face-underline-p face
				 (if (string-match "underline" face-str) t nil)))
	   face)
	(t 'region)))

$B$3$l$GCV$-49$($F2<$5$$!#(B
--
($BM-(B)$B%U%j!<%@%`(B              $B$W$m$0$i$^$!(B              $B?9K\LP<y(B
mori@freedom.co.jp    Shigeki@morimo.to