procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* lisp/net/shr.el (shr-tag-sup, shr-tag-sub): Raising by 0.5 gives
very ugly displays.  0.2 seems sufficient for legibility.
This commit is contained in:
Lars Ingebrigtsen 2019-09-23 16:05:16 +02:00
parent ce49efd4c6
commit bdc222b268
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/net/shr.el
View file

@ -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)