[Emacs-diffs] /srv/bzr/emacs/trunk r104058: shr.el (shr-strike-through): New face.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 104058
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sat 2011-04-30 00:03:19 +0000
message:
  shr.el (shr-strike-through): New face.
   (shr-tag-s): Use it to provide <s> support.
   (shr-tag-s): Remove duplicate definition.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/shr.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-04-25 04:32:07 +0000
+++ b/lisp/gnus/ChangeLog       2011-04-30 00:03:19 +0000
@@ -1,3 +1,9 @@
+2011-04-29  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * shr.el (shr-strike-through): New face.
+       (shr-tag-s): Use it to provide <s> support.
+       (shr-tag-s): Remove duplicate definition.
+
 2011-04-25  Teodor Zlatanov  <address@hidden>
 
        * gnus-registry.el (gnus-registry-ignore-group-p): Don't call

=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el  2011-04-24 22:12:21 +0000
+++ b/lisp/gnus/shr.el  2011-04-30 00:03:19 +0000
@@ -87,6 +87,10 @@
 This is used for cid: URLs, and the function is called with the
 cid: URL as the argument.")
 
+(defface shr-strike-through '((t (:strike-through t)))
+  "Font for <s> elements."
+  :group 'shr)
+
 ;;; Internal variables.
 
 (defvar shr-folding-mode nil)
@@ -760,6 +764,9 @@
   (shr-generic cont)
   (shr-ensure-newline))
 
+(defun shr-tag-s (cont)
+  (shr-fontize-cont cont 'shr-strike-through))
+
 (defun shr-tag-b (cont)
   (shr-fontize-cont cont 'bold))
 
@@ -775,9 +782,6 @@
 (defun shr-tag-u (cont)
   (shr-fontize-cont cont 'underline))
 
-(defun shr-tag-s (cont)
-  (shr-fontize-cont cont 'strike-through))
-
 (defun shr-parse-style (style)
   (when style
     (save-match-data