diff options
author | jao <jao@gnu.org> | 2021-08-20 00:18:59 +0100 |
---|---|---|
committer | jao <jao@gnu.org> | 2021-08-20 00:18:59 +0100 |
commit | 3847fdab8fa0542f09ed74a1f2907e6f406d06c9 (patch) | |
tree | 2ea01a6dc164e01f5e24ebcb394cc111b7465576 /completion.org | |
parent | a9bddfe4deba2054463b2569bd686f7b89865bb1 (diff) | |
download | elibs-3847fdab8fa0542f09ed74a1f2907e6f406d06c9.tar.gz elibs-3847fdab8fa0542f09ed74a1f2907e6f406d06c9.tar.bz2 |
nits
Diffstat (limited to 'completion.org')
-rw-r--r-- | completion.org | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/completion.org b/completion.org index ff6e2ce..7b30f3b 100644 --- a/completion.org +++ b/completion.org @@ -365,11 +365,12 @@ (defun jao-embark-targets--w3m-anchor () (when (not (region-active-p)) - (when-let ((url (or (and (derived-mode-p 'w3m-mode) + (when-let ((url (or (jao-url-around-point) + (thing-at-point 'url) + (and (derived-mode-p 'w3m-mode) (or (w3m-anchor) w3m-current-url)) (and (derived-mode-p 'eww-mode) - (or (thing-at-point 'url) (eww-current-url))) - (jao-url-around-point)))) + (eww-current-url))))) (when (string-match-p "^https?.*" url) (cons 'url url))))) |