diff options
| -rw-r--r-- | lisp/net/eww.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 147ba5fcda7..7f98b5b8c7b 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -921,6 +921,7 @@ network, but just re-display the HTML already fetched." (let ((eww-form (list (cons :method (dom-attr dom 'method)) (cons :action (dom-attr dom 'action)))) (start (point))) + (insert "\n") (shr-ensure-paragraph) (shr-generic dom) (unless (bolp) @@ -1030,6 +1031,7 @@ See URL `https://developer.mozilla.org/en-US/docs/Web/HTML/Element/Input'.") (1- end))))) (let* ((form (get-text-property pos 'eww-form)) (properties (text-properties-at pos)) + (buffer-undo-list t) (inhibit-read-only t) (length (- end beg replace-length)) (type (plist-get form :type))) @@ -1050,13 +1052,13 @@ See URL `https://developer.mozilla.org/en-US/docs/Web/HTML/Element/Input'.") ((< length 0) ;; Add padding. (save-excursion - (goto-char (1- end)) + (goto-char end) (goto-char (if (equal type "textarea") (1- (line-end-position)) (1+ (eww-end-of-field)))) (let ((start (point))) - (insert (make-string (abs length) ? )) + (insert (make-string (abs length) ? )) (set-text-properties start (point) properties)) (goto-char (1- end))))) (set-text-properties (plist-get form :start) (plist-get form :end) @@ -1070,8 +1072,9 @@ See URL `https://developer.mozilla.org/en-US/docs/Web/HTML/Element/Input'.") (when (equal type "password") ;; Display passwords as asterisks. (let ((start (eww-beginning-of-field))) - (put-text-property start (+ start (length value)) - 'display (make-string (length value) ?*))))))))) + (put-text-property + start (+ start (length value)) + 'display (make-string (length value) ?*))))))))) (defun eww-tag-textarea (dom) (let ((start (point)) |