From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 22 Sep 2020 13:10:30 +0000 (+0200)
Subject: Fix filling problem in shr due to zero-width id tagging
X-Git-Tag: emacs-28.0.90~5934
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=69b5d5431157fdb6e83ca94b9e48cef0586ec902;p=emacs.git

Fix filling problem in shr due to zero-width id tagging

* lisp/net/shr.el (shr-descend): Fix problem with filling lines
that have a zero-width ID tag at the start.
---

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index dcb64155d4b..efa1dba9536 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -555,7 +555,10 @@ size, and full-buffer size."
 	  ;; If the element was empty, we don't have anything to put the
 	  ;; anchor on.  So just insert a dummy character.
 	  (when (= start (point))
-            (insert ? )
+            (if (not (bolp))
+                (insert ? )
+              (insert ? )
+              (shr-mark-fill start))
             (put-text-property (1- (point)) (point) 'display ""))
           (put-text-property start (1+ start) 'shr-target-id id))
 	;; If style is set, then this node has set the color.