Fix rename-visited-file when renaming to a directory name

* lisp/files.el (rename-visited-file): Allow renaming to a
directory file name (bug#58182).

diff --git a/lisp/files.el b/lisp/files.el
index 5463f3b5eceb0145f5197f978654a9f62f406209..10b156fb3061124cd005725d86b05c074ee6f3aa 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -4866,6 +4866,14 @@ Interactively, this prompts for NEW-LOCATION."
                            (expand-file-name
                             (file-name-nondirectory (buffer-name))
                             default-directory)))))
+  ;; If the user has given a directory name, the file should be moved
+  ;; there (under the same file name).
+  (when (file-directory-p new-location)
+    (unless buffer-file-name
+      (user-error "Can't rename buffer to a directory file name"))
+    (setq new-location (expand-file-name
+                        (file-name-nondirectory buffer-file-name)
+                        new-location)))
   (when (and buffer-file-name
              (file-exists-p buffer-file-name))
     (rename-file buffer-file-name new-location))