[Emacs-diffs] master 4ea1758: * net/shr.el (shr-next-link): Don't error out at eob.

[Andreas Schwab]

branch: master
commit 4ea175894a02c2e0a7a0da34c4e1181f9b8b2bea
Author: Andreas Schwab <address@hidden>
Commit: Andreas Schwab <address@hidden>

    * 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 27337e9..37f637b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2014-12-13  Andreas Schwab  <address@hidden>
+
+       * net/shr.el (shr-next-link): Don't error out at eob.
+
 2014-12-05  Nicolas Richard  <address@hidden>
 
        * isearch.el (isearch-open-necessary-overlays): Open overlay
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 15dd8df..6e06a76 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)))))