summaryrefslogtreecommitdiffhomepage
path: root/eos/jao-embark.el
diff options
context:
space:
mode:
Diffstat (limited to 'eos/jao-embark.el')
-rw-r--r--eos/jao-embark.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/eos/jao-embark.el b/eos/jao-embark.el
index 2450fdf..a59e241 100644
--- a/eos/jao-embark.el
+++ b/eos/jao-embark.el
@@ -39,7 +39,9 @@
"A regular expression matching URLs that point to video streams")
(defun jao-embark-w3m-anchor ()
- (when-let ((url (w3m-anchor))) (cons 'url url)))
+ (when (not (region-active-p))
+ (when-let ((url (or (w3m-anchor) w3m-current-url)))
+ (cons 'url url))))
(defun jao-refine-url (url)
(if (string-match-p jao-embark-video-url-rx url)