[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#16194: 24.3.50; [PATCH] eww: Support text form with disabled and rea
From: |
Kenjiro NAKAYAMA |
Subject: |
bug#16194: 24.3.50; [PATCH] eww: Support text form with disabled and readonly attributes. |
Date: |
Fri, 20 Dec 2013 09:31:27 +0900 |
User-agent: |
mu4e 0.9.9.6pre2; emacs 24.3.50.1 |
The "disabled" and "readonly" attibutes of text form should be readonly.
example.1
<input type="text" name="example" value="test" disabled>
example.2
<input type="text" name="example" value="test" readonly>
Signed-off-by: Kenjiro NAKAYAMA <nakayamakenjiro@gmail.com>
* net/eww.el (eww-form-text): Support text form with disabled
and readonly attributes.
---
lisp/net/eww.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index a4cec26..8fb6d2d 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -679,13 +679,17 @@ appears in a <link> or <a> tag."
(value (or (cdr (assq :value cont)) ""))
(width (string-to-number
(or (cdr (assq :size cont))
- "40"))))
+ "40")))
+ (readonly (or (cdr (assq :disabled cont))
+ (cdr (assq :readonly cont)))))
(insert value)
(when (< (length value) width)
(insert (make-string (- width (length value)) ? )))
(put-text-property start (point) 'face 'eww-form-text)
(put-text-property start (point) 'local-map eww-text-map)
- (put-text-property start (point) 'inhibit-read-only t)
+ (if readonly
+ (put-text-property start (point) 'read-only t)
+ (put-text-property start (point) 'inhibit-read-only t))
(put-text-property start (point) 'eww-form
(list :eww-form eww-form
:value value
--
1.8.3.1
- bug#16194: 24.3.50; [PATCH] eww: Support text form with disabled and readonly attributes.,
Kenjiro NAKAYAMA <=