(shr-add-font): Use overlays for combining faces.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b860885..a54df61 100644 (file)
--- 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 f1dbfef..975fc68 100644 (file)
--- 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))