From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Fri, 19 Jul 2013 14:44:16 +0000 (+0200)
Subject: eww textarea input fixup
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1759^2~6
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dfbc66e3e4c21c682493228b4d1b4843a8cd5dfc;p=emacs.git

eww textarea input fixup

* net/eww.el (eww-process-text-input): Allow inputting when the
point is at the start of the line, as the properties aren't
front-sticky.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d583d7f9063..5ab2e41f2e4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2013-07-19  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+	* net/eww.el (eww-process-text-input): Allow inputting when the
+	point is at the start of the line, as the properties aren't
+	front-sticky.
+
 	* net/shr.el (shr-make-table-1): Ensure that we don't infloop on
 	degenerate widths.
 
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index d832aa7ef3e..d65932ae7c9 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -603,7 +603,7 @@ appears in a <link> or <a> tag."
     (insert " ")))
 
 (defun eww-process-text-input (beg end length)
-  (let* ((form (get-text-property end 'eww-form))
+  (let* ((form (get-text-property (min (1+ end) (point-max)) 'eww-form))
 	 (properties (text-properties-at end))
 	 (type (plist-get form :type)))
     (when (and form