From 11bade0ad817db903e01f78960cc6fcd8c8a40d1 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Tue, 17 Dec 2013 00:29:47 +0100 Subject: [PATCH] eww anchor pointer movement fixup * net/eww.el (eww-display-html): If we can't find the anchor we're looking for, then go to point-min. --- lisp/ChangeLog | 5 +++++ lisp/net/eww.el | 5 +++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 795aa8026b3..8c196343e7e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-12-16 Lars Magne Ingebrigtsen + + * net/eww.el (eww-display-html): If we can't find the anchor we're + looking for, then go to point-min. + 2013-12-16 Paul Eggert Fix problems with CANNOT_DUMP and EMACSLOADPATH. diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 34c6728ba9e..afcd2ecb391 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -271,8 +271,9 @@ word(s) will be searched for via `eww-search-prefix'." (shr-target-id (let ((point (next-single-property-change (point-min) 'shr-target-id))) - (when point - (goto-char (1+ point))))) + (goto-char (if point + (1+ point) + (point-min))))) (t (goto-char (point-min))))) (setq eww-current-url url -- 2.11.4.GIT