fix(vc): +vc--remote-homepage

This commit is contained in:
troy 2023-02-23 11:30:17 -05:00 committed by Henrik Lissner
parent 225e159b04
commit b51f743e67

View file

@ -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?