The bundle to do this is attached, also pushed to
lp:~bojan-bnikolic/dvc/dev


-- 
Bojan Nikolic          ||          http://www.bnikolic.co.uk

# Bazaar merge directive format 2 (Bazaar 0.90)
# revision_id: [email protected]\
#   e70mdjoo3ffwgeai
# target_branch: http://bzr.xsteve.at/dvc/
# testament_sha1: 723b1bc1e390514e71c2d8684597798e8b8b752f
# timestamp: 2009-06-05 23:23:14 +0100
# source_branch: ../main/
# base_revision_id: [email protected]
# 
# Begin patch
=== modified file 'lisp/bzr.el'
--- lisp/bzr.el	2009-03-15 14:09:56 +0000
+++ lisp/bzr.el	2009-06-05 22:19:37 +0000
@@ -156,7 +156,11 @@
 (defun bzr-push (&optional repo-path)
   "Run bzr push.
 When called with a prefix argument, add the --remember option"
-  (interactive (list (read-string (format "Push %sto bzr repository: " (if current-prefix-arg "--remember " "")))))
+  (interactive (list (let ((push-branch (bzr-info-branchinfo "push")))
+		       (read-string (format "Push %sto bzr repository [%s]: " 
+					    (if current-prefix-arg "--remember " "")
+					    push-branch)
+				    ))))
   (when (string= repo-path "")
     (setq repo-path nil))
   (dvc-run-dvc-async 'bzr (list "push" repo-path (when current-prefix-arg "--remember"))
@@ -1033,11 +1037,26 @@
         (setq new-nick (read-string (format "Change nick from '%s' to: " nick) nil nil nick)))
       (dvc-run-dvc-sync 'bzr (list "nick" new-nick)))))
 
+;;;###autoload
 (defun bzr-info ()
   "Run bzr info."
   (interactive)
   (dvc-run-dvc-display-as-info 'bzr '("info")))
 
+(defun bzr-parse-info-key (kname)
+  "Parse the output of bzr info buffer and return value kname"
+  (progn
+   (re-search-forward (concat"\\s-+ " kname " branch: \\([^\n]*\\)?$") nil 't)
+   (match-string-no-properties 1)))
+
+(defun bzr-info-branchinfo (kname)
+  (dvc-run-dvc-sync 'bzr (list "info")
+		    :finished 
+		    (dvc-capturing-lambda (output error status arguments)
+		      (with-current-buffer output
+			(beginning-of-buffer)
+			(bzr-parse-info-key kname)))))
+
 (defun bzr-testament ()
   "Run bzr testament."
   (interactive)

# Begin bundle
IyBCYXphYXIgcmV2aXNpb24gYnVuZGxlIHY0CiMKQlpoOTFBWSZTWcUIxLsAD89fgHgwX/v///Oj
Sg+////wYBI9X0H23Pd14bNAoACgAAAJpNjM2w0SChNABoAWtTTCUUyaTSaHqbU/VHoj9IQMjEZG
mgxAABhFT1DTT0T0anqGm1D1AYgAYQAZA0BocNNMjEYTTAQwCaYRgmJkNMjQ0AkKEJqCbZKTeRpl
T0gDT9J6o9TQ0NDQ3qgeoCKRAI0aAmTJk1Gm0BGU02qNqPUAGmnqeoFShACAIACNTaRJ6aRoDQ0A
NA0dJa8PF0ohwggwQmIpRjf9eaUYaN5s6+2j2wjlLUVNSPiA75iecaI4VD3zeRpHjP8VovyKaRZR
/o3YmVRozyNehmfl7b/Nh7eXu2FNNc6HvIAvSBwPCRSDbyo3+W8vKUtzWyrfdywTMjKkirLaM6JJ
abkXYyJMqkcxX6LRlkMkqVQybktRnBLfu3SM5lG2VbnA/w8voxORS/WvOPabgX80tXDqpoGtW7HD
o5y7kyrxQLoFuDEZAG22xoaD3+5CL6ItZjSkQMbG/Gh2MKvs66U37oLfS+9vfz4IL7SVGiWFaGD0
UhCUlRYYYGO9TNpOmWnDbo1/qftIr6cTKJkKRSTxwB2WKXqx1z+aem+Z5SNKVzZVVkWHn9sMP8cs
qYjhbC5W2tgPIxsbGxsbGwYMbGxhQ6brrADIiRZFGiIMa7Xkc1TYbs1qkdIMhY3KIcdLp5r1WBXt
2bV63clfQx+VEHIhFVAuAVwN2NNZU21gr1iV60K1ZlVzKFMagmAz1DrjIMkxhRYiySoFpAQRxUxM
AgLCM0uaGyUEk68uXLly50devKR7SNZGxfUIrQUUPT9j119wy9IYLmZy4QbOB3xNpFGfY/B/V6A2
bV87/Vc6/Z+V9yKfTTfg4/w/drk+Z7I/MP/B3ocSgk5MhIYWGERyAPmveHsWiag7ws8u6g8xOPmN
zjafN3psaRMol786JYhOoLVKcQmplmxOYtlsKlzY/kYp5Vuxx32YUlOE4o/IVDEjkFQuQTIA+YqE
5pBDAoQKB1oOv43yNtySSSSSSRuST06u++3Pj6fYkhU2Gky6VEeNuxPpQu7keHN3oGWFQj0cEf+o
1F02I5uCpGcuEuXrKv6G5F6+spEq9myveZCpuIWkqKlzmf6VFLeSMS8W9EaW4znSyMRJYS8T96/a
MyKLqJCgmaOk4GZmiLKOUxqEaycaSktoit/NZcvc2EhWcV7Bkuk/jJiq5Ow2b2q9mXO/mssxC9i3
I+EfM3kXJ6o90eXVxqRf2cqLQVpBfkO7CjC/ES+VkdkFZwc+DpJVZkvkcpGRU1RdJzeMv4P9Fm6U
TDe4suBea7Mt+a6+7ZVRE7FJGAZXDMFZWtZm3Xl65769jDo3E2k5I5L5Ko6N7AtKqacXFTENtLSi
rVq+UUuym9HnpZXWfGO+UvmRelmjtZzFMRlvkMWDJ2quTk0at/Ne5MFzANVzM0feeCNJVGBVFUei
L8/DNhaW2u5HGdIMbeqELp3iaOjCTQiyMma5GMnKa4IuRgYyydFl2CiJiRzXLhuLl6i6lKq4LSre
bmgmUvTozd+yMHbcpZFUVwzXt6jOZszdgpiuFVuDArBiuDCSTiG9gsaNzgwYPHxyaM3L5R8SfxR9
Zpxxbm9ZxWNUVnZJtff2Lr+royaaidqtjxUm4m1xg7F6KyaKqYLmjF27YTB1zbmi67grZfO1G9gl
npsjVjyZsG5xXJhfvb3FXCS5Ze8AtmsvclWOSjoswXSWYKzZ8yWdNlZiJhUZzqGteAmffO8uHVCG
BURTbhexGNIpJQuIqb1/b583bq6tGs4TWSiL0bN6cHRxzEsukyWmjR3rmznrFFJMUpBe1XDNGV7V
m1VYsS3fhJvURzZTAmLcvOe5svavZGBitMfpPl6vqvRxy1dGyzrIdG3d2LmDzGLqxx8HV2tGzqyX
mr8ZPaVR48fDx0439nXelrFq5XPXoTlR2UHnqjBHSlVltM/a3bppj2ScNVZmjlraRNaImrNuXPiZ
PHupYaMpiUmrLz8G2K7sYKOl91kdVeLi433Ti4SGbZ3Nb+1FMc2PR2KOxSg35uhyUXEoq/Crk+Ee
UxcWSjQM259UeUlad3bwwKab6zkjLTC5GCJHrREtSkmCO+rHGXmRvaBlrhbDoojK93LIth2U1Rq6
te1RRxccW9k0iMCMVy9VyXODVuXqqOjuZsWhZRoTwR90e0m/KKMKE+3dbbfzSyOWy5CqhHYzcFGL
qnbWRn1ZCauvSjBZuiaK+Mmfp7Y4Te0cemmwuUruRgkmLeudyzm5uCzKUdOqlmyjJ8TBHdPnPgnd
RKryvDu0OrBU6eaqQutkx6ZVUVaK2aPLRn39+ytcVmOzaaTvb2q92qVYtmailHAWqnBKXtbltDHD
N3yMYbbne7WhvO1RxXs3BgyYKLMX0k+kvPojeaI8UadXTnw66X88ZOiL78Vshi6ic2SoksZzrguk
xuvzc190vXhadW4VlzuwNWDfrclblTGkURSMW58IuuvDTeo0e8XZqG3kYnM365uDV3rji1VYOKrq
ucRojsWYsHVo3tmnSfqe2SbqGMhxCsPz5SLiMBWjUoUIYVqsvcp7HzkpCAZlIVX+KkAurJ1KQSEi
CCoUkMnwUjo2whEMNNpsbQNpsqkDAogYLzge0TTQtqnyUmpUpJQoIYCtSSk1KFPWhBJ5BUJI5CaZ
FCISEGB/xOtScpe+QwpE4z1eBP1t41x6D1xIDnA1AQIkk0BXflYbY222DGwM+f4DeZnWfCM0JBel
tAIkYv2GD5fkqzfRk+6rm2erJ+DRVexL1HwrJHzmWGD3ioVFhadnYepQYF5LAqWsOHxqNypcq2D7
Py/GMVD060Hip7KbIQSEbgS06/SYqGIS7dfToBXgWf9mF9mJ5MulGapj2S7yezaGAjw0qzXEDibQ
e1MihCKEIDiZAcTIDiZAcTInX4hGxbzEoH0mPUbHuq931fDOS5SZL1yqrJVeo80WdEufZgufczUa
LKsVX3MG5kpPrweOTyavfsnU0dTztNK5TUXE1tcP9IJud26CIIh3EmRIkESTIDi6wokaYGqQ7hHq
S5VSyGmO8DQBQdpyUOEj1/akLrhSnrV+UwhHokhbwerwej2f2ova6zNe8mjB5rnm+jkjNdz8q2ew
wRm0ebZRzb3Jo0c1zpCRZv3+77JIevj0+yOriijRucHF1XKL16zsZ9ZZ+7g0ZqGsuNZo0Ygw8JKS
jVY6ZhroU26nudiCbEeMWJkzsoitmW1udrlOOt79fk6vaq/HHFc7irxavRVgxVdbO94LOBHovXNm
9JL5Gi80ano75ImvfJjPi9Vs8/PFo+6OLk3P4e7Fc924JHVwNmwAwJFhM+S3LoUPq+A1rxuOWQTd
jgr/h2m74TiXoBR7qShjXHqRP1nb2QEnhzuRxAZTgdyrPdyu5ftx8Nfhv0erZ4OLY9xRUs9GenXh
15c3PXldlzu54W1+7N+H4dXN8vRMm9m3lXKRxHKQ8kjy4xtRJ6SPIXySeLZ4tzO9O23cwDmwdv1W
XL2HN0WYsJlMILOLsfbkk4fiwbPVmvW+EfkJ3L2dEn0gWqRPKXVb5k8HvTXyrRof2Hbz5op3qnHK
IGSUE7UZIA9eRZyJ0mMj8WLlBtj23+To8XVCrDD2eDF7KBqswZMVx9FlGbF8fGa91Rmz0ZrM3gvg
+WuujVmvZsMNl7g5SqRomGHwudJD7yz9EfZL0fvH5j2Ger6zrP1o9oPzYyRW/8SfCptUtKDGAby1
Na8nbQMIj5DJeC249T0OR9f1Us+2hv3nAiIIgIlCOoTkJxWZSKFjTRZpUF8mut1yga5TvOBrO1Aq
UpJByY9yVShDPlE2ibXvRQKN6n4VG5UnxNIp91KhADexyE5AOm0U1Gr28lXK9Hq1PCXdJZ5wyX9L
s0vapiUsUwwUhgUTOzu9EAcFMNDWfFS0oymYSkCuwTaCPXAlFweIngu4bRODl6OUQpyVFmJ4iYDU
JW9arqNpB3ooF1Qkg0+4B+PY0CSE0ivk46AGMWtFAweQE3lVoUxBXZlZNHgplUlZRAqGZ4GtBxxR
nNAyHNChMtq/NT3KZhS5TGjvEyBMS5TuUPIVCYeJ221KX3ROQOSDNW1VUKdK1MtTrFkoVCj9ZAL3
D0KF7+fMSnLYCdrkZM1AylKls1TGptQT7Kf0pIX++GnwiplI/A26yLlIFKREpAUNKZSCAgSLKhUN
KCbhNgmA+Am87N2YviWV8lNSCe4TcigZtzXgjpEfpCiEpKdI0CpgEVqug1iPjEwQkffVfn+EUvnr
A9Xo6ROlSvesAc1OanMVnW8RPxYoYIpx14SOQUBYZ4vUvFIUy+a0eRVlPnsfp4icnK+oniJxe5+D
yCo7IhjPI1RMhAIOwSEZqvME3CoVGil6Qkduj0QKDYUPU2ArsTep+SkgOpSFQmge8SkvHispY72i
MwLKWTTTJFL/OpstGFS2BTAC6YjnCFKKt36Vdv33T9LFJCkKUEqVTIXw1l/PmF6EmHOQ39qkCcVh
5bkk9bxxEpKSMX2zTY2Nr5ULIiSV3Sr6X06PuHkZ9WEKFW8plngLdlIl0sfojnIxkXpF45BpE/RH
K+XKfilHfGtSwkjoALlKW0mBnwVJCnLHQ+UZrjoqDJrAtLut8uttWSNKJJjE4V4qRTSv6CeD5fvD
Fwa1+aoulS7DbMp/EiXxacF2HQx/MmBtg+2ObszvQdAuxAIQB9BLlWq4lqxFkmfeI4rRk65inYDz
fHAS/ARQ4KsTMHvzA9PNfYTUJlDSv1RhRsKuZoohGDcpMJqRvExMwoUhSh09YkhMpkhNJFC6SzjD
z2kXCP/xdyRThQkMUIxLsA==
_______________________________________________
Dvc-dev mailing list
[email protected]
https://mail.gna.org/listinfo/dvc-dev

Reply via email to