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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 27337e9ab0a40e63330545e5b85a96f78d95f9ad..37f637b503ac0489ee4e05390865b7cbdf868c06 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2014-12-13  Andreas Schwab  <schwab@linux-m68k.org>
+
+       * net/shr.el (shr-next-link): Don't error out at eob.
+
 2014-12-05  Nicolas Richard  <theonewiththeevillook@yahoo.fr>
 
        * isearch.el (isearch-open-necessary-overlays): Open overlay

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 15dd8dfefa9d56c5f7c3682c7aa1a7c282b8536b..6e06a76bf2a75eb2819c5d644f3ffae9b2602799 100644 (file)
--- 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)))))