Commit a3af2929 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

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

parent 512e3ae1
......@@ -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
......
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment