[MERGE] bzr-push shows the default push location
Bojan Nikolic <bojan <at> bnikolic.co.uk>
2009-06-05 22:26:35 GMT
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: b.nikolic <at> mrao.cam.ac.uk-20090605221937-\
# 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: stefan <at> xsteve.at-20090603174201-fk7gnb07dabchcn7
#
# 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]: "
(Continue reading)