(shr-overlays-in-region): Compute overlay positions correctly.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c54f3fc..bdb6076 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,7 @@
        * shr.el (shr-tag-img): Shorten ALT texts and allow them to be
        line-broken.
        (shr-tag-img): Ignore image fetching errors.
+       (shr-overlays-in-region): Compute overlay positions correctly.
 
        * mm-decode.el (mm-shr): Require shr.
 

diff --git a/lisp/shr.el b/lisp/shr.el
index a0b9680..2d5d4d6 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -555,8 +555,12 @@ Return a string with image data."
 (defun shr-overlays-in-region (start end)
   (let (result)
     (dolist (overlay (overlays-in start end))
-      (push (list (max start (- end (overlay-start overlay)))
-                 (min end (- end (overlay-end overlay) start))
+      (push (list (if (> start (overlay-start overlay))
+                     (- end start)
+                   (- end (overlay-start overlay)))
+                 (if (< end (overlay-end overlay))
+                     0
+                   (- end (overlay-end overlay)))
                  (overlay-properties overlay))
            result))
     (nreverse result)))