From 325fec3c5a7770f3bac3a481b11b58811a87ccb0 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 8 Aug 2000 10:51:51 +0000 Subject: [PATCH] (dired-do-create-files): On DOS/Windows, allow to rename a directory to a name that differs only by its letter case. --- lisp/dired-aux.el | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 8ff4128350d..4a2d8932457 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -1232,7 +1232,25 @@ ESC or `q' to not overwrite any of the remaining files, (concat (if dired-one-file op1 operation) " %s to: ") (dired-dwim-target-directory) op-symbol arg rfn-list))) - (into-dir (cond ((null how-to) (file-directory-p target)) + (into-dir (cond ((null how-to) + ;; Allow DOS/Windows users to change the letter + ;; case of a directory. If we don't test these + ;; conditions up front, file-directory-p below + ;; will return t because the filesystem is + ;; case-insensitive, and Emacs will try to move + ;; foo -> foo/foo, which fails. + (if (and (memq system-type '(ms-dos windows-nt)) + (eq op-symbol 'move) + dired-one-file + (string= (downcase + (expand-file-name (car fn-list))) + (downcase + (expand-file-name target))) + (not (string= + (file-name-nondirectory (car fn-list)) + (file-name-nondirectory target)))) + nil + (file-directory-p target))) ((eq how-to t) nil) (t (funcall how-to target))))) (if (and (consp into-dir) (functionp (car into-dir))) -- 2.39.2