From dfbc66e3e4c21c682493228b4d1b4843a8cd5dfc Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Fri, 19 Jul 2013 16:44:16 +0200 Subject: [PATCH] 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. --- lisp/ChangeLog | 4 ++++ lisp/net/eww.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + * 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 or 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 -- 2.39.2