Re: rename-file

[Daniel Colascione <danc@merrillpress.com>]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

On Aug 26, 2009, at 12:05 PM, Sam Steingold wrote:
> Why isn't the buffer, which is visiting a file, renamed
> when I rename the underlying file with rename-file?

Here's what I use. It's DTRT for years. (I have it bound to C-x m.)
Something like this, IMHO, should be the user-level rename-file.


(defun qtmstr-rename-file (new)
  "Rename file OLD to NEW, renaming the buffer as well.

If the file is under version control, act like vc-rename-file."

  (interactive "FRename to: ")

  (let ((oldbuf (current-buffer))
        (oldbufname (buffer-name))
        (old (buffer-file-name))
        vc)

    (if (and oldbuf (buffer-modified-p oldbuf))
	(error "Please save files before moving them"))
    (if (get-file-buffer new)
	(error "Already editing new file name"))
    (if (file-exists-p new)
	(error "New file already exists"))

    (let ((state (vc-state old)))
      (cond ((memq state '(up-to-date edited))
             (setq vc t)
             (vc-call rename-file old new)
             (vc-file-clearprops old))

            (state
             (error "Please %s files before moving them"
                    (if (stringp state) "check in" "update")))))

    (if (file-exists-p old) (rename-file old new))

    (with-current-buffer oldbuf
      (let ((buffer-read-only buffer-read-only))
        (set-visited-file-name new))
      (when vc
        (vc-backend new)
        (vc-mode-line new))
      (set-buffer-modified-p nil))
    (message "Renamed %s to %s%s"
             oldbufname new (if vc " [with VC]" ""))))
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (Darwin)

iEYEARECAAYFAkqWjswACgkQ17c2LVA10VtOywCgxhjjfavlB0qDDKMKgR1D1llN
o3IAoIICnOzZbDqP+RBpT3m2tPyXg935
=4l7w
-----END PGP SIGNATURE-----