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