[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] [emacs] 02/02: Make the eww buffers read-only
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] [emacs] 02/02: Make the eww buffers read-only |
Date: |
Sun, 16 Nov 2014 22:42:16 +0000 |
larsi pushed a commit to branch master
in repository emacs.
commit 058f56d24f776bdc25bcac86fe1f8969a78374e9
Author: Lars Magne Ingebrigtsen <address@hidden>
Date: Sun Nov 16 23:39:53 2014 +0100
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).
---
lisp/ChangeLog | 6 ++++++
lisp/net/eww.el | 5 +++--
2 files changed, 9 insertions(+), 2 deletions(-)
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0a73c57..7659d3c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2014-11-16 Lars Magne Ingebrigtsen <address@hidden>
+
+ * 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 <address@hidden>
* simple.el (execute-extended-command--shorter): Cut search here.
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 3373aac..fbac428 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 <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))