From d8acad365dfc0953767c66b2fe3fefdc1bcca884 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 30 Oct 2010 02:25:23 +0200 Subject: [PATCH] Drop colorisation of regions since we don't control the background color. --- lisp/ChangeLog | 5 +++++ lisp/shr.el | 8 -------- 2 files changed, 5 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 82ee6fdbc..d8cbbe4c0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-10-30 Lars Magne Ingebrigtsen + + * shr.el (shr-tag-span): Drop colorisation of regions since we don't + control the background color. + 2010-10-29 Lars Magne Ingebrigtsen * shr.el (shr-table-depth): New variable. diff --git a/lisp/shr.el b/lisp/shr.el index 324bbee2a..41061ba2a 100644 --- a/lisp/shr.el +++ b/lisp/shr.el @@ -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)) -- 2.25.1