Browse Source

Make open-url-at-point work with bug-reference

master
Nicolas Petton 3 years ago
parent
commit
77413da6b8
No known key found for this signature in database GPG Key ID: E8BCD7866AFCF978
1 changed files with 5 additions and 4 deletions
  1. +5
    -4
      local/open-url-at-point.el

+ 5
- 4
local/open-url-at-point.el View File

@ -3,10 +3,11 @@
Open the url in a www browser or, when called with a prefix
argument, in Emacs."
(interactive "P")
(let ((url (browse-url-url-at-point)))
(if arg
(browse-url-emacs url)
(browse-url url))))
(let ((url (or (get-char-property (point) 'bug-reference-url)
(browse-url-url-at-point))))
(if arg
(browse-url-emacs url)
(browse-url url))))
(defun youtube-dl-at-point ()
(interactive)


Loading…
Cancel
Save