diff options
| author | Lars Magne Ingebrigtsen | 2014-11-24 18:18:53 +0100 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen | 2014-11-24 18:19:05 +0100 |
| commit | 87ac4374374cbab07a18ef794a026a1fc2436d09 (patch) | |
| tree | 35fc87620d06a212fc4a8000373000a509b488b2 | |
| parent | 409e4c82dccb9dc0d48c54735161c8f4cc383625 (diff) | |
| download | emacs-87ac4374374cbab07a18ef794a026a1fc2436d09.tar.gz emacs-87ac4374374cbab07a18ef794a026a1fc2436d09.zip | |
eww input field fixup
(eww-process-text-input): Inhibit read only so that input fields
don't get shortened (bug#19085).
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/net/eww.el | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 58f2a58a1c6..bb25996ffca 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,6 +1,8 @@ | |||
| 1 | 2014-11-24 Lars Magne Ingebrigtsen <larsi@gnus.org> | 1 | 2014-11-24 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 2 | 2 | ||
| 3 | * net/eww.el (eww-set-character-encoding): Use `read-coding-system'. | 3 | * net/eww.el (eww-set-character-encoding): Use `read-coding-system'. |
| 4 | (eww-process-text-input): Inhibit read only so that input fields | ||
| 5 | don't get shortened (bug#19085). | ||
| 4 | 6 | ||
| 5 | 2014-11-24 Leo Liu <sdl.web@gmail.com> | 7 | 2014-11-24 Leo Liu <sdl.web@gmail.com> |
| 6 | 8 | ||
diff --git a/lisp/net/eww.el b/lisp/net/eww.el index a607e444fa3..97939cb611a 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el | |||
| @@ -973,6 +973,7 @@ See URL `https://developer.mozilla.org/en-US/docs/Web/HTML/Element/Input'.") | |||
| 973 | 973 | ||
| 974 | (defun eww-process-text-input (beg end length) | 974 | (defun eww-process-text-input (beg end length) |
| 975 | (let* ((form (get-text-property (min (1+ end) (point-max)) 'eww-form)) | 975 | (let* ((form (get-text-property (min (1+ end) (point-max)) 'eww-form)) |
| 976 | (inhibit-read-only t) | ||
| 976 | (properties (text-properties-at end)) | 977 | (properties (text-properties-at end)) |
| 977 | (type (plist-get form :type))) | 978 | (type (plist-get form :type))) |
| 978 | (when (and form | 979 | (when (and form |