Re: RFC: Automatic setup for bug-reference-mode

[Juri Linkov]

>>> (defun vc-git-repository-url (file-or-dir)
>>>   (let ((default-directory (vc-git-root file-or-dir)))
>>>     (with-temp-buffer
>>>       (vc-git-command (current-buffer) 0 nil "remote" "get-url" "origin")
>>>       (buffer-substring-no-properties (point-min) (1- (point-max))))))
>>>
>>> where I explicitly name the remote "origin" (which, I know, doesn't need
>>> to exist but still works in 99% of all cases).
>>
>> I'm in the 1%; I have git repositories that don't have 'origin'; they
>> have 'savannah'. I migrated from monotone, where the remotes have real
>> names.
>>
>> So some method of overriding 'origin' would be appreciated.
>
> It already has on master, i.e., you can pass in an optional remote-name.

Typing 'C-x v d' (vc-dir) on a repository without 'origin'
raises the error "Failed (status 128): git --no-pager remote get-url  ."