[contrib] find-dired-by-name

[Kevin A. Burton]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1


Any objections to adding this to find-dired?

(defun find-dired-by-name(directory pattern)
  "Find files in the given directory that match the given pattern."
  (interactive
   (list
    (read-file-name "Find within directory: " nil default-directory)
    (read-string "File name pattern (regexp is acceptable): ")))

  (find-dired directory (concat "-name " pattern)))

- -- 
Kevin A. Burton ( address@hidden, address@hidden, address@hidden )
             Location - San Francisco, CA, Cell - 415.595.9965
        Jabber - address@hidden,  Web - http://relativity.yi.org/

The End of Innovation?

  http://www.openp2p.com/pub/a/p2p/2001/08/07/lessig.html



-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: Get my public key at: http://relativity.yi.org/pgpkey.txt

iD8DBQE78LkuAwM6xb2dfE0RAru6AKCcYbw/o5hT5/r0/Vrp3IVrSQ4NhwCg0XHv
kQ0W5BpHY17cEXFKoUd0IlA=
=cSK4
-----END PGP SIGNATURE-----