Fix previous manual mis-merge of dired-aux
* lisp/dired-aux.el (dired-rename-file): Fix manual mis-merge of previous patch.
This commit is contained in:
parent
9e5db99d31
commit
9e5fd29bed
1 changed files with 2 additions and 1 deletions
|
@ -1689,7 +1689,8 @@ unless OK-IF-ALREADY-EXISTS is non-nil."
|
|||
(set-visited-file-name newname nil t)))
|
||||
(dired-remove-file file)
|
||||
;; See if it's an inserted subdir, and rename that, too.
|
||||
(dired-rename-subdir file newname))
|
||||
(when (file-directory-p file)
|
||||
(dired-rename-subdir file newname)))
|
||||
|
||||
(defun dired-rename-subdir (from-dir to-dir)
|
||||
(setq from-dir (file-name-as-directory from-dir)
|
||||
|
|
Loading…
Add table
Reference in a new issue