bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Michael Albinus
Subject: bug#10489: 24.0.92; dired-do-copy may create infinite directory hierarchy
Date: Fri, 13 Jan 2012 14:01:06 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.92 (gnu/linux)

Juanma Barranquero <lekktu@gmail.com> writes:

> As this seems like a common occurrence, how comes that we don't have
>
> (defun file-name-compare (name1 name2 &optional dir)
>   "..."
>   (let ((n1 (file-truename (expand-file-name name1 dir)))
>         (n2 (file-truename (expand-file-name name2 dir))))
>     (when (memq system-type '(ms-dos windows-nt))
>       (setq n1 (downcase n1)
>             n2 (downcase n2)))
>     (string= n1 n2)))

I wouldn't check for `system-type', there might be other systems which
do not care filename cases (VMS?). I would let-bind `case-fold-search',
derived from `read-file-name-completion-ignore-case'.

> Juanma

Best regards, Michael.





reply via email to

[Prev in Thread] Current Thread [Next in Thread]