From 962c43a028e130c1662314e9fe9291d5823c1fac Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Wed, 24 Nov 2010 18:22:50 +0100 Subject: [PATCH] shr: add shr-tag-title Signed-off-by: Julien Danjou --- lisp/ChangeLog | 1 + lisp/shr.el | 3 +++ 2 files changed, 4 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 43df18a22..aaffff2cc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -3,6 +3,7 @@ * shr.el (shr-insert-color-overlay): Replace deprecated syntax. (shr-tag-body): Add background support. (shr-descend): Add background support. + (shr-tag-title): Add. * shr-color.el (shr-color-visible): Really return original background if fixed. diff --git a/lisp/shr.el b/lisp/shr.el index e988d2fdd..73649a2d3 100644 --- a/lisp/shr.el +++ b/lisp/shr.el @@ -745,6 +745,9 @@ text will be inserted at start." (shr-ensure-newline) (insert (make-string shr-width shr-hr-line) "\n")) +(defun shr-tag-title (cont) + (shr-heading cont 'bold 'underline)) + (defun shr-tag-font (cont) (let ((start (point)) (color (cdr (assq :color cont)))) -- 2.25.1