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

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

みやぢさん、こんにちは。

        Sun, 15 Nov 1998 17:57:26 +0900 の
        [xyzzy:01047] モードラインとオートモードと C++ モードでの TAB と・・・
        への返事です.

|   (add-hook '*c++-mode-hook* #'(lambda () (setq indent-tabs-mode t)))
| 
| としてみたのですが、動作しません・・・。私は、何か勘違いしているのでしょうか？

あ、ごめんなさい。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 にしたパターンとか、いろいろ方法があります。


| モードラインに、カレントバッファの総行数を表示してみたいのですが、モードラインの
| カスタマイズは可能でしょうか？

カスタマイズは出来ないことはありませんが、残念ながら総行数って
のはありません。

こうすれば一応それらしくなりますが、パフォーマンスは ? です(^^;

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

--
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx/JCA00343@xxxxxxxxxxx