From 612f25c24ff08b9343ec8897c8dbcfc02d9b0d07 Mon Sep 17 00:00:00 2001 From: Bob Rogers Date: Wed, 16 Aug 2023 04:19:50 +0300 Subject: [PATCH] Don't use the too-new command 'git get-url' * lisp/vc/vc-git.el (vc-git-repository-url): Don't use the too-new command 'git get-url' (bug#65315). --- lisp/vc/vc-git.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el index dfca944dc74..a7763360795 100644 --- a/lisp/vc/vc-git.el +++ b/lisp/vc/vc-git.el @@ -1342,8 +1342,10 @@ This prompts for a branch to merge from." (defun vc-git-repository-url (file-or-dir &optional remote-name) (let ((default-directory (vc-git-root file-or-dir))) (with-temp-buffer - (vc-git-command (current-buffer) 0 nil "remote" "get-url" - (or remote-name "origin")) + ;; The "get-url" subcommand of "git remote" was new in git 2.7.0; + ;; "git config" also works in older versions. -- rgr, 15-Aug-23. + (let ((opt-name (concat "remote." (or remote-name "origin") ".url"))) + (vc-git-command (current-buffer) 0 (list "config" "--get" opt-name))) (buffer-substring-no-properties (point-min) (1- (point-max)))))) ;; Everywhere but here, follows vc-git-command, which uses vc-do-command -- 2.39.5