mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-05-31 01:32:00 -07:00
Code Issues Projects Releases Wiki Activity

Fix 'shr-outline-search' (bug#81073)

Browse source 
* lisp/net/shr.el (shr-outline-search):
Don't check for the beginning of the line.
Suggested by Omar Antolín Camarena <omar@im.unam.mx>.
Confirmed by Rahguzar <rahguzar@mailbox.org>.
This commit is contained in:
Juri Linkov 2026-05-20 18:41:59 +03:00
parent 1754015c60
commit 655302cc21
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/net/shr.el
View file

@ -2290,8 +2290,7 @@ See `outline-search-function' for BOUND, MOVE, BACKWARD and LOOKING-AT."
(bound (or bound
(if backward (point-min) (point-max)))))
(save-excursion
(when (and (not (bolp))
(get-text-property (point) 'outline-level))
(when (get-text-property (point) 'outline-level)
(forward-line (if backward -1 1)))
(if backward
(unless (get-text-property (point) 'outline-level)