Drop colorisation of regions since we don't control the background color.
authorLars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Sat, 30 Oct 2010 00:25:23 +0000 (02:25 +0200)
committerLars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Sat, 30 Oct 2010 00:25:23 +0000 (02:25 +0200)
lisp/ChangeLog
lisp/shr.el

index 82ee6fd..d8cbbe4 100644 (file)
@@ -1,3 +1,8 @@
+2010-10-30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * shr.el (shr-tag-span): Drop colorisation of regions since we don't
+       control the background color.
+
 2010-10-29  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * shr.el (shr-table-depth): New variable.
index 324bbee..41061ba 100644 (file)
@@ -471,14 +471,6 @@ Return a string with image data."
 (defun shr-tag-s (cont)
   (shr-fontize-cont cont 'strike-through))
 
-(defun shr-tag-span (cont)
-  (let ((start (point))
-       (color (cdr (assq 'color (shr-parse-style (cdr (assq :style cont)))))))
-    (shr-generic cont)
-    (when color
-      (let ((overlay (make-overlay start (point))))
-       (overlay-put overlay 'face (cons 'foreground-color color))))))
-
 (defun shr-parse-style (style)
   (when style
     (let ((plist nil))