[Emacs-diffs] /srv/bzr/emacs/trunk r106708: * vc-bzr.el (vc-bzr-rename-file): Don't pass ~ to Bzr in filename arg.

[Chong Yidong]

------------------------------------------------------------
revno: 106708
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Wed 2011-12-21 15:46:49 +0800
message:
  * vc-bzr.el (vc-bzr-rename-file): Don't pass ~ to Bzr in filename arg.
modified:
  lisp/ChangeLog
  lisp/vc/vc-bzr.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-12-20 07:45:20 +0000
+++ b/lisp/ChangeLog    2011-12-21 07:46:49 +0000
@@ -1,3 +1,8 @@
+2011-12-21  Chong Yidong  <address@hidden>
+
+       * vc/vc-bzr.el (vc-bzr-rename-file): Don't pass ~ to Bzr in
+       filename argument.
+
 2011-12-20  Martin Rudalics  <address@hidden>
 
        * window.el (window-normalize-buffer-to-display): Remove.

=== modified file 'lisp/vc/vc-bzr.el'
--- a/lisp/vc/vc-bzr.el 2011-11-24 08:21:03 +0000
+++ b/lisp/vc/vc-bzr.el 2011-12-21 07:46:49 +0000
@@ -764,7 +764,10 @@
 
 (defun vc-bzr-rename-file (old new)
   "Rename file from OLD to NEW using `bzr mv'."
-  (vc-bzr-command "mv" nil 0 new old))
+  (setq old (expand-file-name old))
+  (setq new (expand-file-name new))
+  (vc-bzr-command "mv" nil 0 new old)
+  (message "Renamed %s => %s" old new))
 
 (defvar vc-bzr-annotation-table nil
   "Internal use.")