awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases 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
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 ()