EMACS/Meadow Tips

＜目　次＞
■リージョンを右方向にシフトする
■ファイルをグラフィカルに比較・マージする
■テンプレート付きの日付自動入力
■インクリメンタルサーチ(I-search)関連
■現在行を分かりやすく
■起動時に.emacs以外のファイルを読み込んで開始する
■emacs20ベース(UNIX)の.emacs
■指定ディレクトリ以下の複数の拡張子を持つファイルに対してサブディレクトリまでgrepする
■TAGSファイルによるソース解析
■日本語manを見る
■Wanderlust
■関連ツール
■ifdefブロックをジャンプする
■OR検索
■M-x grep で日本語入力
■CVSでバージョン管理
■文字の表示色を変更
■mcompleteの表示色を変更
■diredで拡張子ソート
■ftp上のファイルを直接編集する
■邪魔な条件コンパイルを見えなくする
■私の.emacs

■リージョンを右方向にシフトする

まず、普通にリージョンを選択します。
次に、C-x r t、と入力
ミニバッファにスペースなり、タブコードなりを入力
ちなみに、私の設定だと、タブコードは、M-i、です。

参考に、リージョン処理には以下のようなものがあります(ネタ元：Meadow Memo)。

C-x r o : 矩形領域だけスペースを確保する (open-rectangle)
C-x r c : 矩形領域を消去する．スペースは確保． (clear-rectangle)
C-x r d : 矩形領域を消去する．スペースも消す． (delete-rectangle)
C-x r t : 矩形領域を文字で置き変える (string-rectangle)

■ファイルをグラフィカルに比較・マージする
Meadowなら、ファイルをグラフィカルに比較・マージするのも簡単です。
但し、動作には、Cygwinに含まれるdiffコマンドが必要になりますので、予めインストールしておいてください。
勿論、プレーンなUNIX環境でEmacsをお使いの場合は、そのままで使用できます。(diffが入ってないなんて事は、まずないでしょう。)
準備ができたら、以下のようにします。

ファイルを比較する
M-x ediff-files
一つ目のファイル名を入力
二つ目のファイル名を入力
で、nで次の相違位置、pで前の相違位置に移動できます。終了は、qです。
ファイルをマージする
M-x emerge-files
相違位置の移動はediffと同じです。
aを押すとbufferAの内容が、Bを押すとbufferBの内容が、Mergeバッファに挿入されます。
終了はqで、MergeバッファをリネームすることでMerge完了です。

ちなみに、開いているバッファを比較・マージすることもできます。上の、filesをbuffersにするだけでOKです。
また、ediffに関してのみですが、三つのファイルを比較できます。ediff-buffers3,ediff-files3というコマンドがコレです。
複数人で開発作業を行っていると、ひとつのソースを3人で編集していることもあるでしょうから、何かと役に立ちます。
あと、若干の設定をすると便利なのですが、標準だと、emergeのウィンドウが別フレームで起動してしまうため、使いにくいと思います。そこで、以下の設定を追加しておくと、同じフレームにコマンド受付入力部が表示されるので、使いやすくなります。また、ついでに、現在のバッファと次のバッファを比較するcompare-bufferコマンドの設定も載せておきます。必要に応じて変更してください。

余談ですが、管理者の人って、開発の現場を理想的な形でしか理解していないので(というか、現場の経験がない場合が多い)、こういうこと(複数人で同じソースを編集すること-多くても二人とか、と考えているようですが実際はそうはいかない場合が多い)を想定していないケースが多いんですね。で、結局は、しわ寄せが全部開発者の負担になっちゃうんですね。
結局は、手動マージが多発するワケで、中途半端なソースコードバージョン管理ツールを導入するなら、一般でよく使われているCVSやRCS(ロック式なので個人的には却下ですが．．．)を採用してくれれば、問題ないケースが殆どなんです。
せっかく、UNIXの開発環境なのに、なんで、Windowsのクライアントソフトが必要なシステム作りなんかするんでしょうかね。プログラマはコマンド入力なんてすぐに慣れるのに．．．

■テンプレート付きの日付自動入力
ソースコードを書いていて、変更箇所にコメントを入れるとき、マニュアル入力で
/* 04.06.06 add name */
なんて感じで入力している方が多いと思います。
この日付部分は毎日変わるものなので、自動入力は難しいと思われるかもしれませんが、emacsに装備されているlispを使えば簡単にできます。
nameのところを自分の名前に書き換えればOKです。
また、コメントにあるようにformat-time-stringを書き換えれば時間の表示形式やタイムゾーン、曜日を表示したりすることも可能ですので、お好みに合わせて設定してください。
設定方法は、M-x describe-function format-time-string
と入力すれば表示されます。

%Y is the year, %y within the century, %C the century.
%G is the year corresponding to the ISO week, %g within the century.
%m is the numeric month.
%b and %h are the locale's abbreviated month name, %B the full name.
%d is the day of the month, zero-padded, %e is blank-padded.
%u is the numeric day of week from 1 (Monday) to 7, %w from 0 (Sunday) to 6.
%a is the locale's abbreviated name of the day of week, %A the full name.
%U is the week number starting on Sunday, %W starting on Monday,
 %V according to ISO 8601.
%j is the day of the year.

%H is the hour on a 24-hour clock, %I is on a 12-hour clock, %k is like %H
 only blank-padded, %l is like %I blank-padded.
%p is the locale's equivalent of either AM or PM.
%M is the minute.
%S is the second.
%Z is the time zone name, %z is the numeric form.
%s is the number of seconds since 1970-01-01 00:00:00 +0000.

%c is the locale's date and time format.
%x is the locale's "preferred" date format.
%D is like "%m/%d/%y".

%R is like "%H:%M", %T is like "%H:%M:%S", %r is like "%I:%M:%S %p".
%X is the locale's "preferred" time format.

Finally, %n is a newline, %t is a tab, %% is a literal %.

Certain flags and modifiers are available with some format controls.
The flags are `_' and `-'.  For certain characters X, %_X is like %X,
but padded with blanks; %-X is like %X, but without padding.
%NX (where N stands for an integer) is like %X,
but takes up at least N (a number) positions.
The modifiers are `E' and `O'.  For certain characters X,
%EX is a locale's alternative version of %X;
%OX is like %X, but uses the locale's number symbols.

For example, to produce full ISO 8601 format, use "%Y-%m-%dT%T%z".

といった感じで、まさに自由自在に設定できます。

■インクリメンタルサーチ(I-search)関連
Meadow/Emacsで検索といえば、インクリメンタルサーチ(I-search)ですね。
ただ、使いこなせていない方が多いようなので、ちょっと紹介します。

単語単位で検索候補を入力する
検索時に文字入力を楽にするには、I-searchを使わなければ、C-yでペーストしてしまえば、よいのですが、I-searchの場合、これは、使えません。
I-searchモードに入ったら、C-wを押してみてください。単語単位で入力されます。
C-wする毎に、単語を拡張してくれます。
文字単位で追加、削除する
1.の方法は便利なのですが、文字単位で追加、削除ができないのが難点です。
そこで、以下の設定を追加すると、I-search中に、C-f,C-bで文字単位での追加、削除が可能になります。
;;; for isearch add-on ; 単語をC-wで追加した後，C-fとすると一文字ずつ追加 (defun isearch-yank-char () "Pull next character from buffer into search string." (interactive) (isearch-yank-string (save-excursion (and (not isearch-forward) isearch-other-end (goto-char isearch-other-end)) (buffer-substring (point) (1+ (point)))))) (define-key isearch-mode-map "\C-f" 'isearch-yank-char) ; 単語をC-wで追加した後，C-bとすると一文字ずつ消し (defun isearch-real-delete-char () (interactive) (setq isearch-string (if (= (length isearch-string) 1) isearch-string (substring isearch-string 0 (- (length isearch-string) 1))) isearch-message isearch-string isearch-yank-flag t) (isearch-search-and-update)) (define-key isearch-mode-map "\C-b" 'isearch-real-delete-char)
I-search中に、occur(バッファ内検索)する
まず、occurってご存知でしょうか。
これは、現在のバッファ内を検索して一覧として表示してくれるelispです。
使い出すと、便利で手放せなくなるのですが、何故か愛用者が少ないのです。
以下の設定を追加すると、I-searchで検索中の語句で、occurできます。

; isearch 中にC-oで occur を起動 (defun isearch-occur () "Invoke `occur' from within isearch." (interactive) (let ((case-fold-search isearch-case-fold-search)) (occur (if isearch-regexp isearch-string (regexp-quote isearch-string))))) (define-key isearch-mode-map (kbd "C-o") 'isearch-occur)
上の設定があると、あまり使い道がないかもしれませんが、カーソルの近くにある単語で、occurをかけるには、以下の設定を追加すればOKです。

;;; for occur ; (defun occur-at-point() "point のある位置の単語を occur にかける" (interactive) (if (thing-at-point 'word) (occur (thing-at-point 'word)) (call-interactively 'occur)))

機能	キーバインド	コマンド名
M-.	find-tag	定義位置へジャンプ
M-*	pop-tag-mark	ジャンプ前の場所へ戻る
M-,	tags-loop-continue	他の候補へジャンプ
ESC C-.	find-tag-regexp	正規表現でジャンプ指定
C-x 4 .	find-tag-other-window
C-x 5 .	find-tag-other-frame

メールを書く	(フォルダモード or サマリモードで)　w
引用せずに返信する	(サマリモードで)　a
引用してに返信する	(サマリモードで)　A
フォワードする	(サマリモードで)　f
編集中のドラフトを破棄する	(ドラフトバッファで)　Ctrl-c　Ctrl-k
メールを送信する(ドラフトバッファ消去)	(ドラフトバッファで)　Ctrl-c　Ctrl-c
メールを送信する(ドラフトバッファを残す)	(ドラフトバッファで)　Ctrl-c　Ctrl-s
ファイルを添付する	(ドラフトバッファで)　Ctrl-c　Ctrl-x　Tab
署名の挿入	(ドラフトバッファで)　Ctrl-c　Ctrl-w
アドレス帳を編集する	Ctrl-c　Ctrl-a a : アドレス追加 e : アドレス編集 d : アドレス削除 q : アドレス編集から出る x : ドラフトバッファに反映 Summaryモード @ : アドレス追加

キーバインド	コマンド名	機能
C-x v ~	vc-version-other-window	コマンドをタイプした後、バージョン番号をミニバッファに入力すると、対象バージョンのファイルが別ファイルに表示されます。ここで、M-x ediff-buffersでバッファ名を指定(通常は、リターンキー2回でOK)すれば、カラフルな画面で比較できるので、分かりやすいでしょう。
C-x v =	vc-diff	CVSに格納されているファイルと現在編集中のファイルを比較します。
C-x v v	vc-next-action	commit(check in)。これがなければ、何もできませんね。
C-x v u	vc-revert-buffer	現在編集中のバッファを破棄し、CVSで管理しているファイルを再ロードします。ま、やり直しです。
C-x v s	vc-create-snapshot	タグ打ちです。私は、コマンドラインからcvs tagを使っています。
C-x v r	vc-retrieve-snapshot	スナップショットの復元です。
C-x v m	vc-merge	cvs merge 編集中ファイルとCVSで管理しているファイルに違いがあれば、比較した上で、矛盾点を教えてくれます。 commit前にやっておきましょう
C-x v l	vc-print-log	cvs log
C-x v i	vc-register	cvs import コマンドラインから普通にcvs importしたほうが良いでしょう。 -Iオプションを併用すれば除外ファイル指定で一気にimportできますし。
C-x v h	vc-insert-headers
C-x v g	vc-annotate	誰がいつどこを変更したかを表示してくれます。
C-x v d	vc-directory	カレントディレクトリにcommitやマージしていないファイルがあれば、dired画面として表示してくれます。
C-x v c	vc-cancel-version
C-x v a	vc-update-change-log

EMACS/Meadow Tips

■Emacsに関連する書籍