From: Xu Chunyang <xuchunyang56@gmail.com>
Date: Fri, 17 Jul 2020 14:43:57 +0000 (+0200)
Subject: Fix <textarea> default texts in eww
X-Git-Tag: emacs-28.0.90~6988
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=92609aad38e5ec6175078b52bf6ecc5653a84170;p=emacs.git

Fix <textarea> default texts in eww

* lisp/net/eww.el (eww-tag-textarea): <textarea> default text
comes from the contents, not a value attribute (bug#39867).
---

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 46cf60be08a..5fc0b088237 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -1260,7 +1260,7 @@ See URL `https://developer.mozilla.org/en-US/docs/Web/HTML/Element/Input'.")
 
 (defun eww-tag-textarea (dom)
   (let ((start (point))
-	(value (or (dom-attr dom 'value) ""))
+        (value (or (dom-text dom) ""))
 	(lines (string-to-number (or (dom-attr dom 'rows) "10")))
 	(width (string-to-number (or (dom-attr dom 'cols) "10")))
 	end)