fix(vc): +vc--remote-homepage
This commit is contained in:
parent
225e159b04
commit
b51f743e67
1 changed files with 1 additions and 1 deletions
|
@ -6,7 +6,7 @@
|
||||||
(defun +vc--remote-homepage ()
|
(defun +vc--remote-homepage ()
|
||||||
(require 'browse-at-remote)
|
(require 'browse-at-remote)
|
||||||
(or (let ((url (browse-at-remote--remote-ref)))
|
(or (let ((url (browse-at-remote--remote-ref)))
|
||||||
(cdr (browse-at-remote--get-url-from-remote (car url))))
|
(plist-get (browse-at-remote--get-url-from-remote (car url)) :url))
|
||||||
(user-error "Can't find homepage for current project")))
|
(user-error "Can't find homepage for current project")))
|
||||||
|
|
||||||
;; TODO: PR these upstream?
|
;; TODO: PR these upstream?
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue