procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Andreas Schwab 2014-12-13 19:03:31 +01:00
parent 30f603836c
commit 4ea175894a
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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

5
lisp/net/shr.el
View file

@ -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)))))