Commit 8fe73515 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

Make eww understand #fragment URLs at point interactively

* lisp/net/eww.el (eww-suggest-uris): Use
thing-at-point-url-at-point instead of url-get-url-at-point
(bug#31927) because it's much better at guessing what the URL
actually is (especially with #fragments).
parent 96771199
Pipeline #1645 failed with stage
in 90 minutes and 2 seconds
......@@ -29,7 +29,7 @@
(require 'shr)
(require 'url)
(require 'url-queue)
(require 'url-util) ; for url-get-url-at-point
(require 'thingatpt)
(require 'mm-url)
(require 'puny)
(eval-when-compile (require 'subr-x)) ;; for string-trim
......@@ -64,17 +64,17 @@
;;;###autoload
(defcustom eww-suggest-uris
'(eww-links-at-point
url-get-url-at-point
thing-at-point-url-at-point
eww-current-url)
"List of functions called to form the list of default URIs for `eww'.
Each of the elements is a function returning either a string or a list
of strings. The results will be joined into a single list with
duplicate entries (if any) removed."
:version "25.1"
:version "27.1"
:group 'eww
:type 'hook
:options '(eww-links-at-point
url-get-url-at-point
thing-at-point-url-at-point
eww-current-url))
(defcustom eww-bookmarks-directory user-emacs-directory
......
......@@ -543,6 +543,7 @@ This uses `url-current-object', set locally to the buffer."
(defun url-get-url-at-point (&optional pt)
"Get the URL closest to point, but don't change position.
Has a preference for looking backward when not directly on a symbol."
(declare (obsolete thing-at-point-url-at-point "27.1"))
;; Not at all perfect - point must be right in the name.
(save-excursion
(if pt (goto-char pt))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment