From: Rahguzar <rahguzar@zohomail.eu>
Date: Wed, 25 Oct 2023 13:20:29 +0000 (+0200)
Subject: Don't insert subscript on a newline
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0de7efe897b54e703f05c192f064e143e3426b2d;p=emacs.git

Don't insert subscript on a newline

* lisp/net/shr.el (shr-tag-sub): Don't insert subscript on a
newline.  (Bug#66676)
---

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 71c16ebd126..9f030b4c743 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1451,6 +1451,13 @@ ones, in case fg and bg are nil."
     (add-face-text-property start (point) 'shr-sup)))
 
 (defun shr-tag-sub (dom)
+  ;; Why would a subscript be at the beginning of a line?  It does
+  ;; happen sometimes because of a <br> tag and the intent seems to be
+  ;; alignment of subscript and superscript but I don't think that is
+  ;; possible in Emacs.  So we remove the newline in that case.
+  (when (bolp)
+    (forward-char -1)
+    (delete-char 1))
   (let ((start (point)))
     (shr-generic dom)
     (put-text-property start (point) 'display `(raise ,shr-sub-raise-factor))