2 Apr 18:45
Re: dvc-bookmarks
Thierry Volpiatto <thierry.volpiatto <at> gmail.com>
2008-04-02 16:45:04 GMT
2008-04-02 16:45:04 GMT
Thierry Volpiatto <thierry.volpiatto <at> gmail.com> writes: > 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)(Continue reading)
RSS Feed