[Emacs-diffs] trunk r115558: eww anchor pointer movement fixup

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 115558
revision-id: address@hidden
parent: address@hidden
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Tue 2013-12-17 00:29:47 +0100
message:
  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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/eww.el                eww.el-20130610114603-80ap3gwnw4x4m5ix-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-12-16 22:35:57 +0000
+++ b/lisp/ChangeLog    2013-12-16 23:29:47 +0000
@@ -1,3 +1,8 @@
+2013-12-16  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * 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  <address@hidden>
 
        Fix problems with CANNOT_DUMP and EMACSLOADPATH.

=== modified file 'lisp/net/eww.el'
--- a/lisp/net/eww.el   2013-12-11 19:01:44 +0000
+++ b/lisp/net/eww.el   2013-12-16 23:29:47 +0000
@@ -271,8 +271,9 @@
        (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