🚀 go-pugleaf

$BJX>h<ALd$r$7$?!$LnB<$G$9!%(B
$B$5$C$=$/$N2sEz$"$j$,$H$&$4$6$$$^$9!%(B

>>>>> In article <6msoba$m8n$1@ocusv4.gw.osaka-cu.ac.jp>,
      Thuyoshi AKIHO <akiho@sci.osaka-cu.ac.jp> writes:
 > $BBg:e;TN)Bg3X$N=)J]$H$$$$$^$9!#(B
$B$O$8$a$^$7$F!%(B

 > In article <NOMURA.98Jun25125443@cutting2.eng.kshosen.ac.jp>
 >     nomura@cutting2.eng.kshosen.ac.jp (NOMURA Masataka &) writes:
   nomura> mule $B$K$*$1$k%P%C%/%"%C%W%U%!%$%k$K4X$7$F$G$9$,!$$3$l$i$N%U%!(B
   nomura> $B%$%k$r$"$k0l$D$N%G%#%l%/%H%j$K%;!<%V$9$k$h$&$K$O$G$-$J$$$b$N(B
   nomura> $B$G$7$g$&$+!%(B

 > $B0J2<$N@_Dj$G=PMh$^$9!#(B"~/.emacs"$B$KDI2C$7$F$/$@$5$$!#(B
$B0lIt$r0J2<$N$h$&$KJQ$($F;HMQ$7;O$a$^$7$?!%(B
$B$J$s$H$J$/!$%P%C%/%"%C%W%U%!%$%k$K$O!V(B~$B!W$,IU$$$F$$$J$$$HMn(B
$B$ACe$+$J$/$F!%(B
$B!V(Bconcat$B!W$N0UL#$+$i!$B?J,(B "~" $B$r2C$($?$i$h$m$7$+$m$&$H$$$&(B
$BC1=c$JH/A[$+$i$NJQ99$G$9!%(B
# $B$3$l$GLdBj$,$"$k$N$+$I$&$+$b$h$/J,$+$j$^$;$s!%(B

 > ----begin ---
 > ;;$B!V(B~/bak$B!W%G%#%l%/%H%j$,$"$l$P$=$3$K(B
 > ;;$B%P%C%/%"%C%W%U%!%$%k$r:n@.$9$k!#(B
$B!&%P%C%/%"%C%W%U%!%$%k$O!$!V(B~/.BackUp$B!W$K$7$?$+$C$?$N$G!$(B
  $B!V(Bbak$B!W$r!V(B.BackUp$B!W$K$^$:JQ99$7$^$7$?!%(B

 > (if (fboundp 'make-backup-file-name-original)
 >     nil
 >   (fset 'make-backup-file-name-original
 >         (symbol-function 'make-backup-file-name))
 >   (defun make-backup-file-name (fn)
 >     (if (and (file-exists-p (expand-file-name "~/bak"))
 >              (file-directory-p (expand-file-name "~/bak/"))
 >              )
 >         (concat (expand-file-name "~/bak/") (file-name-nondirectory fn))
$B!&$3$NItJ,$r0J2<$N$h$&$KJQ99$7$^$7$?!%(B
  (concat (expand-file-name "~/bak/") (file-name-nondirectory fn) "~")

 >       (make-backup-file-name-original fn)
 >       )
 >     )
 >   )
 > ---end --

 > $B$?$@$7$3$l$@$H!"0c$&%G%#%l%/%H%j$K$"$kF1$8L>A0$N%U%!%$%k$,$G(B
 > $B$-$F$7$^$&$H>e=q$-$5$l$^$9!#(B
$B$3$l$O9=$$$^$;$s!%(B
$B$3$&$$$&$3$H$O$"$^$jL5$$$H;W$$$^$9$N$G!%(B

$B$"$j$,$H$&$4$6$$$^$7$?!%(B
--
       __            _
 /| / / / /|/|  / / /_) /|    $BLn(B $BB<(B  $B>;(B $B9'(B (NOMURA Masataka)
/ |/ /_/ / V | (_/ / | /~|  <<E-mail:nomura@cc.kshosen.ac.jp>>