(shr-tag-s): Fix "s" tag name function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fc38cfa..9e3b3f4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -8,6 +8,7 @@
        (shr-ensure-paragraph): Don't insert double line feeds after blank
        lines.
        (shr-insert): \t is also space.
+       (shr-tag-s): Fix "s" tag name function.
 
 2010-10-03  Julien Danjou  <julien@danjou.info>
 

diff --git a/lisp/shr.el b/lisp/shr.el
index c065b60..e10c8d6 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -114,7 +114,7 @@ fit these criteria."
 (defun shr-tag-u (cont)
   (shr-fontize-cont cont 'underline))
 
-(defun shr-s (cont)
+(defun shr-tag-s (cont)
   (shr-fontize-cont cont 'strikethru))
 
 (defun shr-fontize-cont (cont &rest types)