diff options
| author | Evgeny Zajcev | 2019-09-04 18:09:55 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2019-09-07 13:04:36 +0300 |
| commit | 52f83af1f3975130b6bd035166780c2c2dde778c (patch) | |
| tree | f95588119dd528b167f645266eb0fa46f2e5ab46 | |
| parent | 40eb4c51a40a37c14e882e6db3f880ba4528c089 (diff) | |
| download | emacs-52f83af1f3975130b6bd035166780c2c2dde778c.tar.gz emacs-52f83af1f3975130b6bd035166780c2c2dde778c.zip | |
Fix input method operation on read-only text
* lisp/international/quail.el (quail-input-method): Check also
read-only property of text in addition to the buffer's
read-only state.
| -rw-r--r-- | lisp/international/quail.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/international/quail.el b/lisp/international/quail.el index f42b594dc46..e91175fb832 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el | |||
| @@ -1329,7 +1329,8 @@ If STR has `advice' text property, append the following special event: | |||
| 1329 | (defvar quail-conversion-str nil) | 1329 | (defvar quail-conversion-str nil) |
| 1330 | 1330 | ||
| 1331 | (defun quail-input-method (key) | 1331 | (defun quail-input-method (key) |
| 1332 | (if (or (and buffer-read-only | 1332 | (if (or (and (or buffer-read-only |
| 1333 | (get-char-property (point) 'read-only)) | ||
| 1333 | (not (or inhibit-read-only | 1334 | (not (or inhibit-read-only |
| 1334 | (get-char-property (point) 'inhibit-read-only)))) | 1335 | (get-char-property (point) 'inhibit-read-only)))) |
| 1335 | (and overriding-terminal-local-map | 1336 | (and overriding-terminal-local-map |