Commit 1a29adc2 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen
Browse files

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

Fixes: debbugs:16285
parent 189340f5
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.
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment