455 |
(setq file-new (substitute-in-file-name file-new)) |
(setq file-new (substitute-in-file-name file-new)) |
456 |
(if wdired-use-interactive-rename |
(if wdired-use-interactive-rename |
457 |
(wdired-search-and-rename file-ori file-new) |
(wdired-search-and-rename file-ori file-new) |
458 |
|
;; If dired-rename-file autoloads dired-aux while |
459 |
|
;; dired-backup-overwrite is locally bound, |
460 |
|
;; dired-backup-overwrite won't be initialized. |
461 |
|
;; So we must ensure dired-aux is loaded. |
462 |
|
(require 'dired-aux) |
463 |
(condition-case err |
(condition-case err |
464 |
(let ((dired-backup-overwrite nil)) |
(let ((dired-backup-overwrite nil)) |
465 |
(dired-rename-file file-ori file-new |
(dired-rename-file file-ori file-new |