diff --git a/modules/emacs/vc/autoload/vc.el b/modules/emacs/vc/autoload/vc.el index 1d37303ae..44bef12f2 100644 --- a/modules/emacs/vc/autoload/vc.el +++ b/modules/emacs/vc/autoload/vc.el @@ -21,17 +21,18 @@ If prefix ARG, negate the default value of `browse-at-remote-prefer-symbolic'." (browse-at-remote))) ;;;###autoload -(defun +vc/browse-at-remote-kill (&optional arg) +(defun +vc/browse-at-remote-kill (&optional arg interactive?) "Copy URL to current file (and line if selection is active) to clipboard. If prefix ARG, negate the default value of `browse-at-remote-prefer-symbolic'." - (interactive "P") + (interactive (list current-prefix-arg 'interactive)) (require 'browse-at-remote) (let ((vc-ignore-dir-regexp locate-dominating-stop-dir-regexp) (browse-at-remote-prefer-symbolic (if arg (not browse-at-remote-prefer-symbolic) browse-at-remote-prefer-symbolic))) - (browse-at-remote-kill))) + (browse-at-remote-kill) + (if interactive? (message "Copied to clipboard")))) ;;;###autoload (defun +vc/browse-at-remote-homepage ()