From: Andreas Schwab <schwab@suse.de>
Date: Mon, 22 May 2023 11:08:33 +0000 (+0200)
Subject: shr: allow moving between adjacent anchors
X-Git-Tag: emacs-29.0.92~116
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ecccdc07a098351ed3760d7a2099a34175735886;p=emacs.git

shr: allow moving between adjacent anchors

* lisp/net/shr.el (shr-urlify): Put shr-tab-stop only over first
position.
---

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 4e44dfbef03..86987807153 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1215,7 +1215,6 @@ START, and END.  Note that START and END should be markers."
   (add-text-properties
    start (point)
    (list 'shr-url url
-         'shr-tab-stop t
          'button t
          'category 'shr                ; For button.el button buffers.
 	 'help-echo (let ((parsed (url-generic-parse-url
@@ -1240,6 +1239,8 @@ START, and END.  Note that START and END should be markers."
          ;; Make separate regions not `eq' so that they'll get
          ;; separate mouse highlights.
 	 'mouse-face (list 'highlight)))
+  (when (< start (point))
+    (add-text-properties start (1+ start) '(shr-tab-stop t)))
   ;; Don't overwrite any keymaps that are already in the buffer (i.e.,
   ;; image keymaps).
   (while (and start