起点ディレクトリ以下のディレクトリをload-pathに追加。 (defun list-directory-tree (directory) (let ((dirs (list directory))) (mapcar (lambda (x) (and (file-directory-p x) (append-to-list 'dirs (list-directory-tree x)))) (directory-files dir…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。