From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 24 Jan 2020 15:26:34 +0000 (+0100)
Subject: Make links in shr use separate mouse highlight regions
X-Git-Tag: emacs-28.0.90~7908^2~57
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d9385acac25ace1b41f34f120805ef14ccb93bd9;p=emacs.git

Make links in shr use separate mouse highlight regions

* lisp/net/shr.el (shr-urlify): Make adjacent links have separate
mouse hightlights (bug#39115).
---

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 241180d471a..55c189baa85 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -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