From b9a2b629e1bfd1380eb523e39bb2a100e1280ae3 Mon Sep 17 00:00:00 2001
From: Kai Tetzlaff <kai.tetzlaff@web.de>
Date: Mon, 16 Jan 2012 22:53:00 +0100
Subject: [PATCH] update dvc

---
 dvc/lisp/bzr.el | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/dvc/lisp/bzr.el b/dvc/lisp/bzr.el
index b6f27c6..86e7dfa 100644
--- a/dvc/lisp/bzr.el
+++ b/dvc/lisp/bzr.el
@@ -1,6 +1,6 @@
 ;;; bzr.el --- Support for Bazaar 2 in DVC
 
-;; Copyright (C) 2005-2009 by all contributors
+;; Copyright (C) 2005-2012 by all contributors
 
 ;; Author: Matthieu Moy <Matthieu.Moy@imag.fr>
 ;; Contributions from:
@@ -170,6 +170,21 @@ When called with a prefix argument, add the --remember option"
                        (message "bzr push finished => %s"
                                 (concat (dvc-buffer-content error) (dvc-buffer-content output))))))
 
+;;;###autoload
+(defun bzr-upload (&optional repo-path)
+  "Run bzr upload. This command requires the bzr-upload plugin
+When called with a prefix argument, add the --remember option"
+  (interactive (list (read-string (format "Upload %sto bzr working copy: "
+                                          (if current-prefix-arg "--remember " "")))))
+  (when (string= repo-path "")
+    (setq repo-path nil))
+  (dvc-run-dvc-async 'bzr (list "upload" repo-path (when current-prefix-arg "--remember"))
+                     :finished
+                     (dvc-capturing-lambda
+                         (output error status arguments)
+                       (message "bzr upload finished => %s"
+                                (concat (dvc-buffer-content error) (dvc-buffer-content output))))))
+
 ;;;###autoload
 (defun bzr-merge (&optional repo-path)
   "Run bzr merge."