* net/shr.el (shr-descend): Don't bug out if the anchor is empty.

Fixes: debbugs:16285

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8ea2498c2466f40b9f9dcf955e6e4f51fb291410..86064cecf98ebc2e53e21b00a9c704e6cdce6a65 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-01-05  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * net/shr.el (shr-descend): Don't bug out if the anchor is empty
+       (bug#16285).
+
 2014-01-05  Kenjiro NAKAYAMA  <nakayamakenjiro@gmail.com>
 
        * net/eww.el (eww):  Support single/double quote for search.

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 4dc3bb2481212233c8f0250949821a111888330c..77ebf474bc11a39568468e8d340b253bd3951d09 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -380,6 +380,10 @@ size, and full-buffer size."
        (shr-generic (cdr dom)))
       (when (and shr-target-id
                 (equal (cdr (assq :id (cdr dom))) shr-target-id))
+       ;; If the element was empty, we don't have anything to put the
+       ;; anchor on.  So just insert a dummy character.
+       (when (= start (point))
+         (insert "*"))
        (put-text-property start (1+ start) 'shr-target-id shr-target-id))
       ;; If style is set, then this node has set the color.
       (when style