From 1b0c580cfbe4f4afaa0c57b2e35527560548229d Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Wed, 24 Nov 2010 00:54:19 +0100 Subject: [PATCH] Resurrect shr-tag-font again, since it's needed to parse entries. --- lisp/ChangeLog | 2 ++ lisp/shr.el | 6 ++++++ 2 files changed, 8 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 56716cba3..64b3945f4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -2,6 +2,8 @@ * shr.el (shr-insert-color-overlay): Split stuff like "#444444 !important" to find the real colour. + (shr-tag-font): Resurrect shr-tag-font again, since it's needed to + parse entries. 2010-11-23 Andrew Cohen diff --git a/lisp/shr.el b/lisp/shr.el index 8398e8a61..b195f6bf8 100644 --- a/lisp/shr.el +++ b/lisp/shr.el @@ -702,6 +702,12 @@ START, and END." (shr-ensure-newline) (insert (make-string shr-width shr-hr-line) "\n")) +(defun shr-tag-font (cont) + (let ((start (point)) + (color (cdr (assq :color cont)))) + (shr-generic cont) + (shr-insert-color-overlay color start (point)))) + ;;; Table rendering algorithm. ;; Table rendering is the only complicated thing here. We do this by -- 2.34.1