From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 23 Sep 2019 14:05:16 +0000 (+0200)
Subject: Tweak how much <sup>/<sub> raises/lowers text in shr
X-Git-Tag: emacs-27.0.90~1470
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bdc222b26843cfc49bc1b73369acf27fed3aa133;p=emacs.git

Tweak how much <sup>/<sub> raises/lowers text in shr

* lisp/net/shr.el (shr-tag-sup, shr-tag-sub): Raising by 0.5 gives
very ugly displays.  0.2 seems sufficient for legibility.
---

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index cd5aa3980a3..2e4f7fa5c61 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1376,12 +1376,12 @@ ones, in case fg and bg are nil."
 (defun shr-tag-sup (dom)
   (let ((start (point)))
     (shr-generic dom)
-    (put-text-property start (point) 'display '(raise 0.5))))
+    (put-text-property start (point) 'display '(raise 0.2))))
 
 (defun shr-tag-sub (dom)
   (let ((start (point)))
     (shr-generic dom)
-    (put-text-property start (point) 'display '(raise -0.5))))
+    (put-text-property start (point) 'display '(raise -0.2))))
 
 (defun shr-tag-p (dom)
   (shr-ensure-paragraph)