(shr-tag-s): Fix face prop name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9e3b3f4..3f04142 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -9,6 +9,7 @@
        lines.
        (shr-insert): \t is also space.
        (shr-tag-s): Fix "s" tag name function.
+       (shr-tag-s): Fix face prop name.
 
 2010-10-03  Julien Danjou  <julien@danjou.info>
 

diff --git a/lisp/shr.el b/lisp/shr.el
index e10c8d6..faeb16a 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -115,7 +115,7 @@ fit these criteria."
   (shr-fontize-cont cont 'underline))
 
 (defun shr-tag-s (cont)
-  (shr-fontize-cont cont 'strikethru))
+  (shr-fontize-cont cont 'strike-through))
 
 (defun shr-fontize-cont (cont &rest types)
   (let (shr-start)