bug#34343: [PATCH] Make project--find-regexp-in-files work with remote files

[Dmitry Gutov]

On 07.01.2020 16:29, Michael Albinus wrote:

> handler would be tramp-file-name-handler, so I don't see how it helps.

See my previous patch. It would only need one comparison, and 
file-remote-p wouldn't need to be mentioned.

> > Well, if you like the following piece of code, I guess we could live
> > with that.
> >
> >        (setq files (mapcar
> >                     (if (tramp-tramp-file-p dir)
> >                         #'tramp-file-local-name
> >                         #'file-local-name)
> >                     files)))
>
> That would work. If you are sure that you will handle only Tramp based
> remote files, you could simplify this to
>
> (setq files (mapcar #'tramp-file-local-name files))

Of course I'm not sure. Hence the conditional.

> > By the way, I have no idea what to do about having tramp-tramp-file-p
> > called twice.
>
> Take the tramp-tramp-file-p call out of mapcar, like
>
> (let ((fun (if (tramp-tramp-file-p dir)
>                 #'tramp-file-local-name #'file-local-name)))
>    (setq files (mapcar fun files)))

The above is pretty much equivalent.

Anyway, please never mind. It's just one extra call to 
tramp-tramp-file-p. Not twice per each file.