[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-29 ecccdc07a09: shr: allow moving between adjacent anchors
From: |
Andreas Schwab |
Subject: |
emacs-29 ecccdc07a09: shr: allow moving between adjacent anchors |
Date: |
Mon, 22 May 2023 07:14:56 -0400 (EDT) |
branch: emacs-29
commit ecccdc07a098351ed3760d7a2099a34175735886
Author: Andreas Schwab <schwab@suse.de>
Commit: Andreas Schwab <schwab@suse.de>
shr: allow moving between adjacent anchors
* lisp/net/shr.el (shr-urlify): Put shr-tab-stop only over first
position.
---
lisp/net/shr.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-29 ecccdc07a09: shr: allow moving between adjacent anchors,
Andreas Schwab <=