🚀 go-pugleaf

<4aGC5.48$UR5.18257@news1.rdc1.kt.home.ne.jp>$B$N5-;v$K$*$$$F(B
hhase@urawa.cabletv.ne.jp$B$5$s$O=q$-$^$7$?!#(B

>> Katsumi Yamaoka <yamaoka@jpl.org> wrote in message
>> news:yosuk8bpft6r.fsf@jpl.org...
>> > $B$3$s$K$A$O;32,$H?=$7$^$9!#(B
>> [$BCfN,(B]
>> > $B$7$?$,$C$F!"$9$Y$F$N%P%C%U%!$K$*$1$k(B tab-width $B$NCM$r(B 4 $B$K$9$k$?$a(B
>> > $B$K$O!"(Btab-width $B$N%G%U%)%k%HCM$rJQ99$7$J$1$l$P$J$j$^$;$s!#$=$l$O!"(B
>> > $B$3$&$9$l$P$G$-$^$9!#(B
>> >
>> > (setq-default tab-width 4)
>> >
>> [$BCfN,(B]
>> > $B4+$a$^$;$s$G$7$?!#Be$o$j$K!"0J2<$N$h$&$J$b$N$r(B .emacs $B$K=q$$$F$b$i$C(B
>> > $B$F$$$^$9!#(B
>> >
>> > (defun tab4 (arg)
>> >   "Toggle `tab-width' between 4 and 8.
>> > With arg, set `tab-width' to 4 if and only if arg is positive."
>> >   (interactive "P")
>> >   (let ((width (if (integerp arg)
>> >[$BCfN,(B]
>> > $B$3$l$O!"(BM-x tab4 $B$H%?%$%W$9$k$H!"$=$N%P%C%U%!$G$@$1(B TAB $BI}$r(B 4 $B$H(B
>> > 8 $B$K%H%0%k$G@Z$jBX$($k$3$H$,$G$-$k%3%^%s%I$G$9!#(B
>> > --
>> > Katsumi Yamaoka <yamaoka@jpl.org>
>> 

$BJX>h<ALd$G$9!#(B
$B$*$*!"$3$l$OJXMx$H(Bmenu-bar $B$K$3$N%3%^%s%I$r=q$$$F$_$h$&$H;W$$$^$7$?!#(B
$B8=:_(B tab-width $B$,(B4 $B$N;~$O(B"Set TAB width to 8"
     tab-width $B$,(B8 $B$N;~$O(B"Set TAB width to 4"
$B$H$$$&I=<($r%a%K%e!<$K=P$7$?$$$N$G$9$,!"$I$&$9$l$PNI$$$N$G$7$g$&$+!)(B
(define-key menu-bar-etc-menu [tab4]
  '((concat "Set TAB width to " (if (eq 8 tab-width) 4 8)) . tab4))
$B$J$I$H$d$C$F$_$?$N$G$9$,!"(Bmenu-bar $B$KA4$/I=<($5$l$^$;$s$G$7$?!#(B

emacs 19.34.1 $B%Y!<%9$N(Bmule2.3 $B$r;H$C$F$$$^$9!#(B
$B$I$J$?$+$*J,$+$j$G$7$?$i$465<x2<$5$$!#(B
------------------------------
	$BElKLBg3X9)3XIt(B
   $BEE5$DL?.8&5f=j(B $BLpLn8&(B 4$BG/(B
	   $BLZA>(B $BOB5#(B
 sd98209@ec.ecei.tohoku.ac.jp
   kiso@riec.tohoku.ac.jp
------------------------------