From ac21c094195576ae502a82b206111aa54e8ca923 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Wed, 25 Dec 2019 15:21:16 -0500 Subject: [PATCH] emacs/vc: better feedback from 'SPC g {y,Y}' --- modules/emacs/vc/autoload/vc.el | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/modules/emacs/vc/autoload/vc.el b/modules/emacs/vc/autoload/vc.el index b381bc545..8f9ac8d07 100644 --- a/modules/emacs/vc/autoload/vc.el +++ b/modules/emacs/vc/autoload/vc.el @@ -19,10 +19,13 @@ the URL." If a selection is active, highlight them. Otherwise omits the #L suffix in the URL." (interactive) - (if (or (use-region-p) - (ignore-errors (evil-visual-state-p))) - (browse-at-remote-kill) - (kill-new (browse-at-remote--file-url (buffer-file-name))))) + (let ((url + (if (or (use-region-p) + (evil-visual-state-p)) + (browse-at-remote-get-url) + (browse-at-remote--file-url (buffer-file-name))))) + (kill-new url) + (message "Copied to clipboard: %S" url))) (defun +vc--remote-homepage () @@ -40,4 +43,6 @@ the URL." (defun +vc/browse-at-remote-kill-homepage () "Copy homepage URL of current project to clipboard." (interactive) - (kill-new (+vc--remote-homepage))) + (let ((url (+vc--remote-homepage))) + (kill-new url) + (message "Copied to clipboard: %S" url)))