diff --git a/modules/emacs/vc/autoload/vc.el b/modules/emacs/vc/autoload/vc.el index 4b26f41b4..e49fed36a 100644 --- a/modules/emacs/vc/autoload/vc.el +++ b/modules/emacs/vc/autoload/vc.el @@ -3,26 +3,13 @@ (autoload 'browse-at-remote-get-url "browse-at-remote") (autoload 'browse-at-remote--file-url "browse-at-remote") -(defun +vc--remote-file-or-region-link () - (if (or (doom-region-active-p) (not buffer-file-name)) - (browse-at-remote-get-url) - (browse-at-remote--file-url (buffer-file-name)))) - -;;;###autoload -(defun +vc/browse-at-remote-file-or-region () - "Open the current file at remote in your browser. -If a selection is active, highlight them. Otherwise omits the #L suffix in -the URL." - (interactive) - (browse-url (+vc--remote-file-or-region-link))) - ;;;###autoload (defun +vc/browse-at-remote-kill-file-or-region () "Copy the current file's remote URL to your clipboard. If a selection is active, highlight them. Otherwise omits the #L suffix in the URL." (interactive) - (let ((url (+vc--remote-file-or-region-link))) + (let ((url (browse-at-remote-get-url))) (kill-new url) (message "Copied to clipboard: %S" url))) diff --git a/modules/emacs/vc/packages.el b/modules/emacs/vc/packages.el index d943e18a1..70bd4075f 100644 --- a/modules/emacs/vc/packages.el +++ b/modules/emacs/vc/packages.el @@ -5,7 +5,7 @@ (package! vc-annotate :built-in t) (package! smerge-mode :built-in t) -(package! browse-at-remote :pin "1a9392e9d1") +(package! browse-at-remote :pin "aeee6bf38f") (package! git-timemachine :pin "391eb61050") (package! gitconfig-mode :pin "55468314a5") (package! gitignore-mode :pin "55468314a5")