[xyzzy:01057] Re: モードラインとオートモードと C++ モードでの TAB と・・・

[MIYAJI Nobuyuki <mfm97019@xxxxxxxxxxxxxxxx>]

こんばんは亀井さん、みやぢです。

Tetsuya Kameiさんの<199811150944.SAA25627@xxxxxxxxxxxxxxx>から
>あ、ごめんなさい。export を忘れています(^^; とりあえず
>
>   (add-hook 'ed::*c++-mode-hook* #'(lambda () (setq indent-tabs-mode t)))
>
>としておいてください m(_ _)m
>

うまくいきました。


>| そこで、*auto-mode-alist*に
>| 
>|   (("\\.cgi$" . perl-mode)
>|    ("\\.pl$"  . perl-mode))
>| 
>| を、siteinit.lで追加したいのですが、どぉやったら実現できるのでしょうか？
>
>  (push '("\\.pl" . perl-mode) *auto-mode-alist*)
>  (push '("\\.cgi" . perl-mode) *auto-mode-alist*)
>
>とか、
>
>  (setq *auto-mode-alist* (append *auto-mode-alist*
>				  '(("\\.pl" . perl-mode)
>				    ("\\.cgi" . perl-mode))))
>
>とか、
>
>  (setq *auto-mode-alist* (append '(("\\.pl" . perl-mode)
>				    ("\\.cgi" . perl-mode))
>				  *auto-mode-alist*))
>
>とか、append を nconc にしたパターンとか、いろいろ方法があります。

なるほど、appendするだけでなく、代入し直す必要が有ったんですね。(-_-;


>こうすれば一応それらしくなりますが、パフォーマンスは ? です(^^;
>
>(setq-default last-total-lines 0)
>(make-variable-buffer-local 'last-total-lines)
>(make-variable-buffer-local 'mode-line-format)
>(setq-default *post-command-hook*
>	      #'(lambda ()
>		  (let ((lines (buffer-lines)))
>		    (when (/= lines last-total-lines)
>		      (setq last-total-lines lines)
>		      (setq mode-line-format
>			    (format nil "--%*- %b (%M) [%k:%l] %P Total: ~D   %f"
>				    lines))))))

そぉか・・・。mode-lineでgrepするのを忘れてた・・・。モードラインで

  File:

の部分が、固定っぽかったのでこれでgrepかけて見つからないので、内部的にやっている
のだと勝手に思いこんでいました。
これを参考に、自分なりにイヂってみます。

・・・しばらくこのままで使ってみたのですが、単純に総行数を表示した方が直感的に分
かりやすいです。このまま使用させていただきます。
# 当初は、Muleの様にカーソル行が全体の何%の位置にあるか表示するつもりでした。(^^;

---------------------------------------
 宮地 宣行 (MIYAJI Nobuyuki)　　　 ζ
 mailto:mfm97019@xxxxxxxxxxxxxxxx　□P
　　　　　　　　　　　　　　　　　￣￣