🚀 go-pugleaf

こんにちは、藤澤と申します。

最近、文字コードを気にせずにグローバルな検索をする為に、 Mule で grep 
の様にディレクトリ単位でファイル検索が出来る Emacs Lisp が書けないかと
考えているのですが、うまくいかないので、どなたかにお教えを請いたいと思
い、投稿致します。

先ず、取り敢えず指定したディレクトリにあるファイルを全て開く Lisp を書
こうと思ったのですが、サブディレクトリ以下にあるファイルも開く方法がよ
く分りません。

(defun mule-grep (str dna)
  (interactive "sInput string: \nfInput dirname: ")
  (setq mg-file-list (directory-files dna))
  (setq n 2)
  (while (setq mg-file-name (concat dna (nth n mg-file-list)))
    (if (file-directory-p mg-file-name)
	(progn (setq mg-file-name (concat mg-file-name "/"))
	       (mule-grep str mg-file-name))
      (find-file-noselect mg-file-name))
    (setq n (+ n 1))))

というような Lisp を取り敢えず書いてみたのですが（まだ Emacs Lisp を勉
強し始めたばかりなので、非常に拙いですが）、root のにあるファイルを開
きにいってしまいます。

また、それ以外にも当然ながらバイナリーファイルも開いてしまいます。バイ
ナリーファイルを無視して、テキストファイルのみ開くにはどうしたらよいの
でしょうか？

さらに、*.tex のファイルは、やてふモードで（やてふを使っています）開か
れてしまい、hilit も使っているため、特に大きいファイルの場合、よけいな
時間がかかってしまいます。この場合に於ては単に検索する事のみが目的です
ので、このコマンドの中では普通のモードでいいから速く開いてほしいのです
が、その方法もよく分りません。

これら幾つかの点について、どなたか御教授下されば幸いに存じます。


------
                                 ┌────────────────┐
                                 │藤澤次郎   神戸大学文化学研究科 ┃
                                 │E-mail:fujisawa@lit.kobe-u.ac.jp┃
                                 └━━━━━━━━━━━━━━━━┛