[Mew-dist 13915] mew-dir-list2

[Kazu Yamamoto ( 山本和彦 )]

Windows および OS/2 をお使いの方：

数字だけのディレクトリは使わない約束にする。そして、skip-pattern とか
考えずに、以下のように mew-dir-list2 を定義すると、高速にちゃんとした
フォルダのリストが作成できますか？

(defun mew-dir-list2 (dir)
  (let ((default-directory (expand-file-name dir default-directory))
	file dirent dirs ent subdirs)
    (setq dirent (directory-files "." nil "^[^0-9]+")) ;; MUST sort
    (setq dirent (delete "." dirent))
    (setq dirent (delete ".." dirent))
    (while dirent
      (setq file (car dirent))
      (setq ent (mew-file-chase-links file))
      (setq dirent (cdr dirent))
      (if (file-regular-p ent)
	  ()
	(setq dirs (cons file dirs))
	(setq subdirs (mew-dir-list2 file))
	(if subdirs (setq dirs (cons subdirs dirs)))))
    (nreverse dirs)))

--かず