* vc-bzr.el (vc-bzr-rename-file): Don't pass ~ to Bzr in filename arg.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 01c03c2..27e8bcd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-12-21  Chong Yidong  <cyd@gnu.org>
+
+       * vc/vc-bzr.el (vc-bzr-rename-file): Don't pass ~ to Bzr in
+       filename argument.
+
 2011-12-20  Martin Rudalics  <rudalics@gmx.at>
 
        * window.el (window-normalize-buffer-to-display): Remove.

diff --git a/lisp/vc/vc-bzr.el b/lisp/vc/vc-bzr.el
index c5c0ce7..508420f 100644 (file)
--- a/lisp/vc/vc-bzr.el
+++ b/lisp/vc/vc-bzr.el
@@ -764,7 +764,10 @@ REV non-nil gets an error."
 
 (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.")