diff options
| author | Lars Ingebrigtsen | 2019-09-23 16:05:16 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-09-23 16:05:16 +0200 |
| commit | bdc222b26843cfc49bc1b73369acf27fed3aa133 (patch) | |
| tree | d4a2046748209bd6adb5d3d2674b96cb5d2d634e | |
| parent | ce49efd4c602d5bed7c5ef03237b08df09809591 (diff) | |
| download | emacs-bdc222b26843cfc49bc1b73369acf27fed3aa133.tar.gz emacs-bdc222b26843cfc49bc1b73369acf27fed3aa133.zip | |
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.
| -rw-r--r-- | lisp/net/shr.el | 4 |
1 files 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." | |||
| 1376 | (defun shr-tag-sup (dom) | 1376 | (defun shr-tag-sup (dom) |
| 1377 | (let ((start (point))) | 1377 | (let ((start (point))) |
| 1378 | (shr-generic dom) | 1378 | (shr-generic dom) |
| 1379 | (put-text-property start (point) 'display '(raise 0.5)))) | 1379 | (put-text-property start (point) 'display '(raise 0.2)))) |
| 1380 | 1380 | ||
| 1381 | (defun shr-tag-sub (dom) | 1381 | (defun shr-tag-sub (dom) |
| 1382 | (let ((start (point))) | 1382 | (let ((start (point))) |
| 1383 | (shr-generic dom) | 1383 | (shr-generic dom) |
| 1384 | (put-text-property start (point) 'display '(raise -0.5)))) | 1384 | (put-text-property start (point) 'display '(raise -0.2)))) |
| 1385 | 1385 | ||
| 1386 | (defun shr-tag-p (dom) | 1386 | (defun shr-tag-p (dom) |
| 1387 | (shr-ensure-paragraph) | 1387 | (shr-ensure-paragraph) |