shr: allow moving between adjacent anchors
* lisp/net/shr.el (shr-urlify): Put shr-tab-stop only over first position.
This commit is contained in:
parent
504ef25ef3
commit
ecccdc07a0
1 changed files with 2 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue