diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-01-24 16:26:34 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-01-24 16:26:34 +0100 |
| commit | d9385acac25ace1b41f34f120805ef14ccb93bd9 (patch) | |
| tree | 2fbed695dc9ecc06b68c4742f2a3ff90cf27c4f7 /lisp | |
| parent | ff630b56939541752097e5cc87c3db1de68d4c5f (diff) | |
| download | emacs-d9385acac25ace1b41f34f120805ef14ccb93bd9.tar.gz | |
Make links in shr use separate mouse highlight regions
* lisp/net/shr.el (shr-urlify): Make adjacent links have separate
mouse hightlights (bug#39115).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/net/shr.el | 4 |
1 files changed, 3 insertions, 1 deletions
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 |