From: Lars Magne Ingebrigtsen Date: Sun, 16 Nov 2014 22:39:53 +0000 (+0100) Subject: Make the eww buffers read-only X-Git-Tag: emacs-25.0.90~2635^2~444 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=058f56d24f776bdc25bcac86fe1f8969a78374e9;p=emacs.git 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 0a73c570e61..7659d3c2235 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2014-11-16 Lars Magne Ingebrigtsen + + * 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 * simple.el (execute-extended-command--shorter): Cut search here. diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 3373aac49e9..fbac428b76f 100644 --- 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 or 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))