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

shr.el (shr-tag-sup, shr-tag-sub): New functions.

Browse source
This commit is contained in:
Lars Magne Ingebrigtsen 2011-04-24 22:12:21 +00:00 • committed by Katsumi Yamaoka
parent 512e3ae1e9
commit a3af29290e
2 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

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

10
lisp/gnus/shr.el
View file

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