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

Generalize thing-at-point & region functions

Browse Source
This commit is contained in:
Henrik Lissner
2020-01-03 02:39:47 -05:00
parent d426349f21
commit 27bf3c85b5
7 changed files with 80 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
modules/emacs/vc/autoload/vc.el
View File

@ -8,8 +8,7 @@
If a selection is active, highlight them. Otherwise omits the #L<N> suffix in
the URL."
(interactive)
(if (or (use-region-p)
(ignore-errors (evil-visual-state-p)))
(if (doom-region-active-p)
(browse-at-remote)
(browse-url (browse-at-remote--file-url (buffer-file-name)))))
@ -20,8 +19,7 @@ If a selection is active, highlight them. Otherwise omits the #L<N> suffix in
the URL."
(interactive)
(let ((url
(if (or (use-region-p)
(evil-visual-state-p))
(if (doom-region-active-p)
(browse-at-remote-get-url)
(browse-at-remote--file-url (buffer-file-name)))))
(kill-new url)