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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 01c03c2baf62f1f34188100a9eda72e1cf001264..27e8bcd0add3a08f48f9695b4411a5aa39785aea 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 c5c0ce73b3a6d7d3857d9ef7d9da54bc908b448d..508420f026a5d605489edf67b2042dced0336917 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.")