From bdc222b26843cfc49bc1b73369acf27fed3aa133 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 23 Sep 2019 16:05:16 +0200 Subject: [PATCH] Tweak how much / 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. --- lisp/net/shr.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.2