From: Adam Sjøgren <asjo@koldfront.dk>
Date: Sun, 7 Feb 2016 02:11:57 +0000 (+1100)
Subject: lisp/net/shr.el (shr-tag-del, shr-tag-ins): New functions.
X-Git-Tag: emacs-26.0.90~2721
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c4dce0494a94cc2bf128f72fec740fd89119caa0;p=emacs.git

lisp/net/shr.el (shr-tag-del, shr-tag-ins): New functions.

* lisp/net/shr.el (shr-tag-del, shr-tag-ins): New functions.
---

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index a8ba2845aa2..567c8b807ff 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1230,9 +1230,6 @@ ones, in case fg and bg are nil."
 (defun shr-tag-s (dom)
   (shr-fontize-dom dom 'shr-strike-through))
 
-(defun shr-tag-del (dom)
-  (shr-fontize-dom dom 'shr-strike-through))
-
 (defun shr-tag-b (dom)
   (shr-fontize-dom dom 'bold))
 
@@ -1252,6 +1249,24 @@ ones, in case fg and bg are nil."
   (let ((shr-current-font 'default))
     (shr-generic dom)))
 
+(defun shr-tag-ins (cont)
+  (let* ((start (point))
+         (color "green")
+         (shr-stylesheet (nconc (list (cons 'color color))
+				shr-stylesheet)))
+    (shr-generic cont)
+    (shr-colorize-region start (point) color
+                         (cdr (assq 'background-color shr-stylesheet)))))
+
+(defun shr-tag-del (cont)
+  (let* ((start (point))
+         (color "red")
+         (shr-stylesheet (nconc (list (cons 'color color))
+				shr-stylesheet)))
+    (shr-fontize-dom cont 'shr-strike-through)
+    (shr-colorize-region start (point) color
+                         (cdr (assq 'background-color shr-stylesheet)))))
+
 (defun shr-parse-style (style)
   (when style
     (save-match-data