無駄多し、バグありの find-lisp-find-dired ってのが大昔からあるよ