diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/net/eww.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 811d7c69209..c83884fd259 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el | |||
| @@ -1107,11 +1107,13 @@ just re-display the HTML already fetched." | |||
| 1107 | (defun eww-form-submit (dom) | 1107 | (defun eww-form-submit (dom) |
| 1108 | (let ((start (point)) | 1108 | (let ((start (point)) |
| 1109 | (value (dom-attr dom 'value))) | 1109 | (value (dom-attr dom 'value))) |
| 1110 | (setq value | 1110 | (if (null value) |
| 1111 | (if (zerop (length value)) | 1111 | (shr-generic dom) |
| 1112 | "Submit" | 1112 | (insert value)) |
| 1113 | value)) | 1113 | ;; If the contents of the <button>...</button> turns out to be |
| 1114 | (insert value) | 1114 | ;; empty, or the value was blank, default to this: |
| 1115 | (when (= (point) start) | ||
| 1116 | (insert "Submit")) | ||
| 1115 | (add-face-text-property start (point) 'eww-form-submit) | 1117 | (add-face-text-property start (point) 'eww-form-submit) |
| 1116 | (put-text-property start (point) 'eww-form | 1118 | (put-text-property start (point) 'eww-form |
| 1117 | (list :eww-form eww-form | 1119 | (list :eww-form eww-form |