Make the eww buffers read-only

Fixes: debbugs:16476
* net/eww.el (eww-mode): Make the buffer read-only.
(eww-form-text): Inhibit read-only-ness in text input fields
(bug#16476).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0a73c570e61a974d6df80d23d10bdc8b28586f08..7659d3c22359dce1fbc78a507dfcebbf57e6638c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2014-11-16  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * net/eww.el (eww-mode): Make the buffer read-only.
+       (eww-form-text): Inhibit read-only-ness in text input fields
+       (bug#16476).
+
 2014-11-16  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * simple.el (execute-extended-command--shorter): Cut search here.

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 3373aac49e9a7453c3d83a15c6841b15a71a5c5e..fbac428b76fc78ec2b9cc57c208957ec0ffb7b93 100644 (file)
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -584,8 +584,7 @@ the like."
   (when (boundp 'tool-bar-map)
    (setq-local tool-bar-map eww-tool-bar-map))
   (buffer-disable-undo)
-  ;;(setq buffer-read-only t)
-  )
+  (setq buffer-read-only t))
 
 ;;;###autoload
 (defun eww-browse-url (url &optional _new-window)
@@ -837,6 +836,7 @@ appears in a <link> or <a> tag."
     (when (< (length value) width)
       (insert (make-string (- width (length value)) ? )))
     (put-text-property start (point) 'face 'eww-form-text)
+    (put-text-property start (point) 'inhibit-read-only t)
     (put-text-property start (point) 'local-map eww-text-map)
     (put-text-property start (point) readonly-property t)
     (put-text-property start (point) 'eww-form
@@ -920,6 +920,7 @@ See URL `https://developer.mozilla.org/en-US/docs/Web/HTML/Element/Input'.")
          (insert (make-string pad ? ))))
       (add-face-text-property (line-beginning-position)
                              (point) 'eww-form-textarea)
+      (put-text-property (line-beginning-position) (point) 'inhibit-read-only t)
       (put-text-property (line-beginning-position) (point)
                         'local-map eww-textarea-map)
       (forward-line 1))