Make links in shr use separate mouse highlight regions

* lisp/net/shr.el (shr-urlify): Make adjacent links have separate
mouse hightlights (bug#39115).
This commit is contained in:
Lars Ingebrigtsen 2020-01-24 16:26:34 +01:00
parent ff630b5693
commit d9385acac2

View file

@ -1265,7 +1265,9 @@ START, and END. Note that START and END should be markers."
(format "%s (%s)" iri title)
iri))
'follow-link t
'mouse-face 'highlight))
;; Make separate regions not `eq' so that they'll get
;; separate mouse highlights.
'mouse-face (list 'highlight)))
;; Don't overwrite any keymaps that are already in the buffer (i.e.,
;; image keymaps).
(while (and start