bug#10489: 24.0.92; dired-do-copy may create infinite directory hierarchy

[Stefan Monnier]

> What about this?
> (defun file-name-equal-p (name1 name2 &optional dir)
>   (let* ((n1     (file-truename (expand-file-name name1 dir)))

There's a crucial line missing between the above two.  It should clearly
document what this function is expected to do.  E.g. it should make it
clear if (and if so, to what extent) the function is allowed to refer to
the actual file system(s) as opposed to only relying on the
provided strings.


        Stefan