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:
parent
ff630b5693
commit
d9385acac2
1 changed files with 3 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue