From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 10 Dec 2021 11:46:55 +0000 (+0100)
Subject: Don't bug out on certain empty elements with ids
X-Git-Tag: emacs-28.0.91~60
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8e19b3a8446b37faba44b04dce37b2c3b44e199;p=emacs.git

Don't bug out on certain empty elements with ids

* lisp/net/shr.el (shr-descend): Fix empty-element #id targetting
(bug#52391).
---

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index f33272fad85..48590fd675a 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -605,7 +605,7 @@ size, and full-buffer size."
               (insert ? )
               (shr-mark-fill start))
             (put-text-property (1- (point)) (point) 'display ""))
-          (put-text-property start (1+ start) 'shr-target-id id))
+          (put-text-property (1- (point)) (point) 'shr-target-id id))
 	;; If style is set, then this node has set the color.
 	(when style
 	  (shr-colorize-region