From 4ea175894a02c2e0a7a0da34c4e1181f9b8b2bea Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sat, 13 Dec 2014 19:03:31 +0100 Subject: [PATCH] * net/shr.el (shr-next-link): Don't error out at eob. --- lisp/ChangeLog | 4 ++++ lisp/net/shr.el | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 27337e9ab0a..37f637b503a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +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 diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 15dd8dfefa9..6e06a76bf2a 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -265,8 +265,9 @@ redirects somewhere else." "Skip to the next link." (interactive) (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))))) -- 2.39.2