require 'find'
module Find
def match(*paths)
matched = []
find(*paths) { |path| matched << path if yield path }
return matched
end
module_function :match
end
def emacs_droppings(*paths)
Find.match(*paths) do |p|
(p[-1] == ?~ and p[0] != ?~) or (p[0] == ?# and p[-1] == ?#)
end
end