From dbdb7907d8e13101de3191a4e7d1bc3b54a469ac Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 2 Oct 2010 18:38:03 +0200 Subject: [PATCH] (shr-add-font): Use overlays for combining faces. --- lisp/ChangeLog | 1 + lisp/shr.el | 3 ++- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b860885ed..a54df619c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -3,6 +3,7 @@ * shr.el (shr-insert-document): Autoload. (shr-img): Be silent. (shr-insert): Add a newline after every picture before text. + (shr-add-font): Use overlays for combining faces. * mm-decode.el (mm-text-html-renderer): Default to shr.el rendering, if possible. diff --git a/lisp/shr.el b/lisp/shr.el index f1dbfefee..975fc6870 100644 --- a/lisp/shr.el +++ b/lisp/shr.el @@ -110,7 +110,8 @@ fit these criteria." (shr-add-font start (point) type))) (defun shr-add-font (start end type) - (put-text-property start end 'face type)) + (let ((overlay (make-overlay start end))) + (overlay-put overlay 'face type))) (defun shr-a (cont) (let ((start (point)) -- 2.25.1