Commit 4ea17589 authored by Andreas Schwab's avatar Andreas Schwab
Browse files

* net/shr.el (shr-next-link): Don't error out at eob.

parent 30f60383
2014-12-13 Andreas Schwab <>
* net/shr.el (shr-next-link): Don't error out at eob.
2014-12-05 Nicolas Richard <>
* isearch.el (isearch-open-necessary-overlays): Open overlay
......@@ -265,8 +265,9 @@ redirects somewhere else."
"Skip to the next link."
(let ((skip (text-property-any (point) (point-max) 'help-echo nil)))
(if (not (setq skip (text-property-not-all skip (point-max)
'help-echo nil)))
(if (or (eobp)
(not (setq skip (text-property-not-all skip (point-max)
'help-echo nil))))
(message "No next link")
(goto-char skip)
(message "%s" (get-text-property (point) 'help-echo)))))
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