Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-15 21:11:25 +00:00
Code Issues Projects Releases Packages Wiki Activity

shr: allow moving between adjacent anchors

Browse source 
* lisp/net/shr.el (shr-urlify): Put shr-tab-stop only over first
position.
This commit is contained in:
Andreas Schwab 2023-05-22 13:08:33 +02:00
parent 504ef25ef3
commit ecccdc07a0
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/net/shr.el
View file

@ -1215,7 +1215,6 @@ START, and END. Note that START and END should be markers."
(add-text-properties (add-text-properties
start (point) start (point)
(list 'shr-url url (list 'shr-url url
'shr-tab-stop t
'button t 'button t
'category 'shr ; For button.el button buffers. 'category 'shr ; For button.el button buffers.
'help-echo (let ((parsed (url-generic-parse-url '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 ;; Make separate regions not `eq' so that they'll get
;; separate mouse highlights. ;; separate mouse highlights.
'mouse-face (list 'highlight))) '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., ;; Don't overwrite any keymaps that are already in the buffer (i.e.,
;; image keymaps). ;; image keymaps).
(while (and start (while (and start