diff options
| -rw-r--r-- | lisp/gnus/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/gnus/shr.el | 10 |
2 files changed, 15 insertions, 0 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index b683a1563b6..dd079b4f0a1 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -2,6 +2,11 @@ * gnus-sum.el (gnus-extra-headers): Bump :version. +2011-04-24 Lars Magne Ingebrigtsen <larsi@gnus.org> + + * shr.el (shr-tag-sup): New function. + (shr-tag-sub): Ditto. + 2011-04-22 Teodor Zlatanov <tzz@lifelogs.com> * gnus-registry.el (gnus-registry-ignore-group-p): Test specifically diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index 401ac1a08c6..1f6cb528c5d 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -734,6 +734,16 @@ ones, in case fg and bg are nil." (defun shr-tag-script (cont) ) +(defun shr-tag-sup (cont) + (let ((start (point))) + (shr-generic cont) + (put-text-property start (point) 'display '(raise 0.5)))) + +(defun shr-tag-sub (cont) + (let ((start (point))) + (shr-generic cont) + (put-text-property start (point) 'display '(raise -0.5)))) + (defun shr-tag-label (cont) (shr-generic cont) (shr-ensure-paragraph)) |