[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 4ea1758: * net/shr.el (shr-next-link): Don't error
From: |
Andreas Schwab |
Subject: |
[Emacs-diffs] master 4ea1758: * net/shr.el (shr-next-link): Don't error out at eob. |
Date: |
Sat, 13 Dec 2014 18:09:03 +0000 |
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)))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 4ea1758: * net/shr.el (shr-next-link): Don't error out at eob.,
Andreas Schwab <=