eww: support disabled and readonly text

* net/eww.el (eww-form-text): Support text form with disabled and readonly attributes.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 42fd827c38d4433487d0e6c5a90dc82b966f9385..0f6f824471d313ab523876e5e630a9b030803c08 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,8 @@
        (eww-history-browse, eww-history-quit, eww-history-kill)
        (eww-history-mode-map, eww-history-mode): New command and
        functions to list browser histories.
+        (eww-form-text): Support text form with disabled
+        and readonly attributes.
 
 2013-12-21  Rüdiger Sonderfeld  <ruediger@c-plusplus.de>
 

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 8bcfb4838b66141d1ec09be28b218e48d02fd068..36a91f8f10beb926dcf270da01f1df016328424c 100644 (file)
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -680,18 +680,22 @@ 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-property (if (or (cdr (assq :disabled cont))
+                                   (cdr (assq :readonly cont)))
+                               'read-only
+                             'inhibit-read-only)))
     (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)
+    (put-text-property start (point) readonly-property t)
     (put-text-property start (point) 'eww-form
-                      (list :eww-form eww-form
-                            :value value
-                            :type type
-                            :name (cdr (assq :name cont))))
+                       (list :eww-form eww-form
+                             :value value
+                             :type type
+                             :name (cdr (assq :name cont))))
     (insert " ")))
 
 (defconst eww-text-input-types '("text" "password" "textarea"