Hello, dvc-bookmarks-pull and dvc-bookmarks-missing don't support path like "~/some_path" when pulling or "missing" from a partner. I modify these two functions:
,---- | (defun dvc-bookmarks-missing () | (interactive) | (let ((local-tree (dvc-bookmarks-current-value 'local-tree))) | (if local-tree | (let* ((default-directory local-tree) | (abs-partner (if (file-directory-p (dvc-bookmarks-partner-at-point)) | (expand-file-name (dvc-bookmarks-partner-at-point)) | (dvc-bookmarks-partner-at-point))) | (partner (or abs-partner (dvc-bookmarks-marked-value 'local-tree)))) | (message "Running dvc missing for %s, against %s" | (dvc-bookmark-name (dvc-bookmarks-current-bookmark)) | partner) | (dvc-missing partner)) | (message "No local-tree defined for this bookmark entry.")))) `---- ,---- | (defun dvc-bookmarks-pull () | "Pull from partner at point or default into current bookmark." | (interactive) | (let ((local-tree (dvc-bookmarks-current-value 'local-tree))) | (if local-tree | (let ((default-directory local-tree) | (partner (if (file-directory-p (dvc-bookmarks-partner-at-point)) | (expand-file-name (dvc-bookmarks-partner-at-point)) | (dvc-bookmarks-partner-at-point))) | (nickname (dvc-bookmarks-nickname-at-point))) | (message (if partner | (if nickname | (format "Pulling from %s, using URL %s" nickname partner) | (format "Pulling from %s" partner)) | "Pulling from default location")) | (dvc-pull partner)) | (message "No local-tree defined for this bookmark entry.")))) `---- I didn't find how to do a patch from bzr. -- A + Thierry Pub key: http://pgp.mit.edu _______________________________________________ Dvc-dev mailing list [email protected] https://mail.gna.org/listinfo/dvc-dev
