[Emacs-diffs] trunk r113462: eww textarea input fixup

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 113462
revision-id: address@hidden
parent: address@hidden
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Fri 2013-07-19 16:44:16 +0200
message:
  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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/eww.el                eww.el-20130610114603-80ap3gwnw4x4m5ix-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-07-19 14:07:43 +0000
+++ b/lisp/ChangeLog    2013-07-19 14:44:16 +0000
@@ -1,5 +1,9 @@
 2013-07-19  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * 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.
 

=== modified file 'lisp/net/eww.el'
--- a/lisp/net/eww.el   2013-06-28 07:54:42 +0000
+++ b/lisp/net/eww.el   2013-07-19 14:44:16 +0000
@@ -603,7 +603,7 @@
     (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