Re: [contrib] find-dired-by-name

[Richard Stallman]

    (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)))

I guess it is ok.