From 1507d61ebc5b572f6c9173ce9d76de379d919a94 Mon Sep 17 00:00:00 2001 From: Tassilo Horn Date: Mon, 15 Jun 2020 09:07:12 +0200 Subject: [PATCH] Use vc-git-repository-url in vc-git-dir-extra-headers * lisp/vc/vc-git.el (vc-git-dir-extra-headers): Use vc-git-repository-url for getting the remote's URL. --- lisp/vc/vc-git.el | 16 +++++----------- 1 file changed, 5 insertions(+), 11 deletions(-) diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el index 636f9dfd0ca..96ee59db8e6 100644 --- a/lisp/vc/vc-git.el +++ b/lisp/vc/vc-git.el @@ -748,13 +748,7 @@ or an empty string if none." (when (string-match "\\([^\n]+\\)" remote) (setq remote (match-string 1 remote))) (when remote - (setq remote-url - (with-output-to-string - (with-current-buffer standard-output - (vc-git--out-ok "config" - (concat "remote." remote ".url")))))) - (when (string-match "\\([^\n]+\\)" remote-url) - (setq remote-url (match-string 1 remote-url)))) + (setq remote-url (vc-git-repository-url dir remote)))) (setq branch "not (detached HEAD)")) (when stash-list (let* ((len (length stash-list)) @@ -821,10 +815,10 @@ or an empty string if none." (when (file-exists-p (expand-file-name ".git/rebase-apply" (vc-git-root dir))) (propertize "\nRebase : in progress" 'face 'font-lock-warning-face)) (if stash-list - (concat - (propertize "\nStash : " 'face 'font-lock-type-face) - stash-button - stash-string) + (concat + (propertize "\nStash : " 'face 'font-lock-type-face) + stash-button + stash-string) (concat (propertize "\nStash : " 'face 'font-lock-type-face) (propertize "Nothing stashed" -- 2.39.5