Commit 260c15b4 authored by Sam Steingold's avatar Sam Steingold
Browse files

(vc-rename-file): DTRT when the destination is a directory name and the source is a file.

parent a81a17c5
2008-06-12 Sam Steingold <sds@gnu.org>
* vc.el (vc-rename-file): DTRT when the destination is a directory
name and the source is a file.
2008-06-12 Chong Yidong <cyd@stupidchicken.com>
* menu-bar.el (menu-set-font): Renamed x-font-dialog to
......
......@@ -2497,6 +2497,11 @@ backend to NEW-BACKEND, and unregister FILE from the current backend.
(defun vc-rename-file (old new)
"Rename file OLD to NEW, and rename its master file likewise."
(interactive "fVC rename file: \nFRename to: ")
;; in CL I would have said (setq new (merge-pathnames new old))
(let ((old-base (file-name-nondirectory old)))
(when (and (not (string= "" old-base))
(string= "" (file-name-nondirectory new)))
(setq new (concat new old-base))))
(let ((oldbuf (get-file-buffer old)))
(when (and oldbuf (buffer-modified-p oldbuf))
(error "Please save files before moving them"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment