🚀 go-pugleaf

こんにちは山岡と申します。

>>>>> In <LvmC5.47$UR5.17552@news1.rdc1.kt.home.ne.jp> 
>>>>>	"Hiroyuki Hasegawa" <hhase@urawa.cabletv.ne.jp> wrote:

> タブの表示サイズを変更しようと思い、.emacsに以下の一行

> (setq tab-width 4)

> を挿入しましたが、反映されません。
> 具体的には、別のエディタで編集したソースファイルを読みこむと
> タブが8で表示されます。(当然、tab-widthも8のままです）

そのときの tab-width の値を M-x describe-variable を使って調べると
8 になっていると思います。

> しかし、

> M-x load-library ~/.emacs

> とすると、タブが4に変換(変更)されます。

そうすると 4 になりますよね。
tab-width はバッファローカル変数なので、起動時に .emacs に書かれた
(setq tab-width 4) が反映されるバッファ (ってどこ? ^^;;) 以外では
tab-width の値はデフォルトの 8 のままなのです。
したがって、すべてのバッファにおける tab-width の値を 4 にするため
には、tab-width のデフォルト値を変更しなければなりません。それは、
こうすればできます。

(setq-default tab-width 4)

ところが、これだけでは TAB 幅が 4 の世界を実現するには不足で、
tab-stop-list というリスト変数も変更する必要があるでしょう。例えば
このようにします。

(setq tab-stop-list
      '(4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68
	  72 76 80 84 88 92 96 100 104 108 112 116 120))

さて、世の中には TAB 幅が 8 であることを想定して書かれた文書がたく
さんあるのですが、困ることは無いのでしょうか?
実は、ぼくの近所でも TAB 幅を 4 にしたいという要望が少なからずあっ
たのですが、ぼくは上記のように 4 に固定してしまうやり方は頑として
勧めませんでした。代わりに、以下のようなものを .emacs に書いてもらっ
ています。

(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)
		   (if (> arg 0) 4 8)
		 (if (eq 8 tab-width) 4 8))))
    (set (make-local-variable 'tab-width) width)
    (set (make-local-variable 'tab-stop-list) nil)
    (let ((n width)
	  (max 1024))
      (while (<= n max)
	(setq tab-stop-list (nconc tab-stop-list (list n))
	      n (+ n width))))
    (message "TAB=%d" width)))

これは、M-x tab4 とタイプすると、そのバッファでだけ TAB 幅を 4 と
8 にトグルで切り替えることができるコマンドです。
-- 
Katsumi Yamaoka <yamaoka@jpl.org>

"Hiroyuki Hasegawa" <hhase@urawa.cabletv.ne.jp> writes:

> 初歩的な質問で恐縮ですが、ご存知の方がいらしたら教えてください。
> 現在GNU Emacs 19.28.1ベースのMule Version 2.3(Ｗｉｎｄｏｗｓ版)を使っていま
> す。
> タブの表示サイズを変更しようと思い、.emacsに以下の一行
> 
> (setq tab-width 4)


 (add-hook 'c-mode-hook
           '(lambda ()
              (setq tab-width 4)))

---neo

山岡さん、

詳細なフォローありがとうございます。
教えていただいた方法でうまく行きました。
tab4 も大変便利な機能ですね。
ありがたく使わせていただきます。

emacsは使いやすいエディタで気に入っていますが、ちかごろ
開発環境がPCに移行して、今更ながらこれを再確認しました。
マ社の統合環境にはEpsilonのエミュレータモードがありますが、
似て非なるもので、まったく痒いところに手が届きません。
編集だけはMuleを使うようになって、右手が矢印キーや
マウスを探してさまようこともなくなり快適です。

長谷川浩之

Katsumi Yamaoka <yamaoka@jpl.org> wrote in message
news:yosuk8bpft6r.fsf@jpl.org...
> こんにちは山岡と申します。
[中略]
> したがって、すべてのバッファにおける tab-width の値を 4 にするため
> には、tab-width のデフォルト値を変更しなければなりません。それは、
> こうすればできます。
>
> (setq-default tab-width 4)
>
[中略]
> 勧めませんでした。代わりに、以下のようなものを .emacs に書いてもらっ
> ています。
>
> (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)
>    (if (> arg 0) 4 8)
> (if (eq 8 tab-width) 4 8))))
>     (set (make-local-variable 'tab-width) width)
>     (set (make-local-variable 'tab-stop-list) nil)
>     (let ((n width)
>   (max 1024))
>       (while (<= n max)
> (setq tab-stop-list (nconc tab-stop-list (list n))
>       n (+ n width))))
>     (message "TAB=%d" width)))
>
> これは、M-x tab4 とタイプすると、そのバッファでだけ TAB 幅を 4 と
> 8 にトグルで切り替えることができるコマンドです。
> --
> Katsumi Yamaoka <yamaoka@jpl.org>

他にも同じアドバイスをしてくださった方がいらっしゃいますが、
私の環境では、この方法はうまく行きませんでした。
なぜなのでしょう。

長谷川浩之

<neo14@io.ocn.ne.jp> wrote in message
news:m31yxw529g.fsf@night.narasoft.org...
"Hiroyuki Hasegawa" <hhase@urawa.cabletv.ne.jp> writes:

> 初歩的な質問で恐縮ですが、ご存知の方がいらしたら教えてください。
> 現在GNU Emacs 19.28.1ベースのMule Version 2.3(Ｗｉｎｄｏｗｓ版)を使ってい
ま
> す。
> タブの表示サイズを変更しようと思い、.emacsに以下の一行
>
> (setq tab-width 4)


 (add-hook 'c-mode-hook
           '(lambda ()
              (setq tab-width 4)))

---neo

<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
------------------------------

引用順を変更してます。

> <neo14@io.ocn.ne.jp> wrote in message
> > タブの表示サイズを変更しようと思い、.emacsに以下の一行
> >
> > (setq tab-width 4)
> 
> 
>  (add-hook 'c-mode-hook
>            '(lambda ()
>               (setq tab-width 4)))


"Hiroyuki Hasegawa" <hhase@urawa.cabletv.ne.jp> writes:
> 他にも同じアドバイスをしてくださった方がいらっしゃいますが、
> 私の環境では、この方法はうまく行きませんでした。
> なぜなのでしょう。

上の設定は c-mode 以外では反映されないからでしょう。
タブの表示サイズを変更したい mode で同じことをしないといけません。

--
 NODA Takashi <noda@mb.neweb.ne.jp>