[Emacs-diffs] trunk r118282: eww point positioning tweak

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 118282
revision-id: address@hidden
parent: address@hidden
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Mon 2014-11-03 23:58:02 +0100
message:
  eww point positioning tweak
  
  (eww-display-html): Don't leave point inside forms.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/eww.el                eww.el-20130610114603-80ap3gwnw4x4m5ix-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-11-03 22:54:16 +0000
+++ b/lisp/ChangeLog    2014-11-03 22:58:02 +0000
@@ -1,6 +1,7 @@
 2014-11-03  Lars Magne Ingebrigtsen  <address@hidden>
 
        * net/eww.el (eww-score-readability): Parse SVC images correctly.
+       (eww-display-html): Don't leave point inside forms.
 
        * net/shr.el: Ditto.
 

=== modified file 'lisp/net/eww.el'
--- a/lisp/net/eww.el   2014-11-03 22:54:16 +0000
+++ b/lisp/net/eww.el   2014-11-03 22:58:02 +0000
@@ -300,7 +300,12 @@
          (when point
            (goto-char point))))
        (t
-       (goto-char (point-min)))))
+       (goto-char (point-min))
+       ;; Don't leave point inside forms, because the normal eww
+       ;; commands aren't available there.
+       (while (and (not (eobp))
+                   (get-text-property (point) 'eww-form))
+         (forward-line 1)))))
     (setq eww-current-url url
          eww-history-position 0)
     (eww-update-header-line-format)))