Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
a3af2929
Commit
a3af2929
authored
Apr 24, 2011
by
Lars Magne Ingebrigtsen
Committed by
Katsumi Yamaoka
Apr 24, 2011
Browse files
shr.el (shr-tag-sup, shr-tag-sub): New functions.
parent
512e3ae1
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
15 additions
and
0 deletions
+15
-0
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+5
-0
lisp/gnus/shr.el
lisp/gnus/shr.el
+10
-0
No files found.
lisp/gnus/ChangeLog
View file @
a3af2929
...
...
@@ -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
...
...
lisp/gnus/shr.el
View file @
a3af2929
...
...
@@ -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
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment