🚀 go-pugleaf

$B@hF|!$%b!<%IKh$K%;!<%V$9$k;~$N%U%!%$%kB0@-$rJQ$($k;v$,=PMh$J$$$G$7$g$&(B
$B$+$H<ALd$5$;$FD:$$$?(B $B>.@n!w5WN1JF9)6HBg3X(B $B$G$9!%(B

$BAaB.!$<ALd5-;v$X$N%U%)%m!<!$%a!<%k$G?tDL$N8f2sEz$rD:$-$^$7$?!%(B
$BD:$$$?@_DjK!$O$[$\F1$8$G$7$?$,!$(B

1) $B%b!<%IKh$K(B after-save-hook $B$r(B make-local-variable $B$7$F$+$i(B chmod $B$r(B
   $B8F$V4X?t$r(B hook $B$K0z$C$+$1$kJ}K!(B

2) global $B$J(B after-save-hook $B$K(B chmod $B$r8F$V4X?t$r0z$C$+$1$F!$(BC-xC-s 
   $B$r$9$kEY$K<B9TB0@-$rIU$1$?$$%b!<%I$+$I$&$+$rH=JL$9$kJ}K!(B

$B$N(B 2 $B<oN`$K$o$+$l$F$$$^$7$?!%(B

$B$*0~MM$G!$L\E*$rC#@.$9$k;v$,=PMh$^$7$?!%$I$&$b$"$j$,$H$&$4$6$$$^$9!%(B

>>>>> "Yamaoka" == yamaoka  <ISO-2022-JP> writes:
In article <28sphht6gj.fsf@beer.ga.sony.co.jp> =?ISO-2022-JP?B?GyRCOzMyLBsoQiAbJEI5bkh+GyhC?= <yamaoka@ga.sony.co.jp> writes:

Yamaoka>   NEmacs $B$G$OF0$+$J$$$H;W$$$^$9$,!"(B

Yamaoka> (add-hook 'after-save-hook
Yamaoka> 	  '(lambda ()
Yamaoka> 	     (and (memq major-mode '(perl-mode))
Yamaoka> 		  (call-process "chmod" nil nil nil
Yamaoka> 				"+x" (buffer-file-name)))))

Yamaoka>   $B$G$O$I$&$G$7$g$&$+!#(B
Yamaoka>   '(perl-mode) $B$r(B '(perl-mode sh-mode) $B$J$I$HJ#?tJ;5-$9$l$P!"$=$l$i$N(B 
Yamaoka>   mode $B$GJT=8$7$?%U%!%$%k$r(B +x $B$9$k$3$H$,$G$-$^$9!#$^$?!"$A$g$C$H=q$-(B
Yamaoka>   $B49$($l$P(B mode $B$K$h$C$F%U%!%$%k$N%b!<%I$rJQ$($k$3$H$b$G$-$k$G$7$g$&!#(B

==========================================
  $B>.@n9@5,!w5WN1JF9)6HBg3XEE;R>pJs9)3X2J(B 
   E-mail : e934206@is.kurume-it.ac.jp   
==========================================