emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

tweak(vc): add feedback on +vc/browse-at-remote-kill

Browse source 
Otherwise there's no indication that the command worked, when invoked
interactively.
This commit is contained in:
Henrik Lissner 2022-10-31 18:36:18 +01:00
parent 818efb263f
commit 4e3b94c602
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
modules/emacs/vc/autoload/vc.el
View file

@ -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 ()