diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-09-30 15:07:31 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-09-30 15:07:31 +0200 |
| commit | 0332142e8e78b49b4f98438be21d2868e738986b (patch) | |
| tree | f2e8629eb86c86c31cd34b26087b1be2890a36ef /lisp/files.el | |
| parent | a42dd0c87d27b706574923c89b50519b8893934d (diff) | |
| download | emacs-0332142e8e78b49b4f98438be21d2868e738986b.tar.gz emacs-0332142e8e78b49b4f98438be21d2868e738986b.tar.bz2 emacs-0332142e8e78b49b4f98438be21d2868e738986b.zip | |
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).
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/files.el b/lisp/files.el index 5463f3b5ece..10b156fb306 100644 --- 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)) |