diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2017-12-11 01:27:17 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2017-12-11 01:27:17 +0000 |
| commit | 5bcd468a9e007351bfad65fb5c4b49b0c319947f (patch) | |
| tree | cc52adf7c4034935272861225841f7f12db9fb4d /lisp/international/quail.el | |
| parent | 87baf1242e9c0130148e5547804db6f1fbfb8c55 (diff) | |
| download | emacs-5bcd468a9e007351bfad65fb5c4b49b0c319947f.tar.gz | |
Make quail-input-method work when inhibit-read-only is non-nil (bug#29504)
* lisp/international/quail.el (quail-input-method): Work not only
when buffer-read-only is nil but also when inhibit-read-only is non-nil
(bug#29504).
Diffstat (limited to 'lisp/international/quail.el')
| -rw-r--r-- | lisp/international/quail.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 1bbbb174d49..c2ae44bb48f 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -1330,7 +1330,9 @@ If STR has `advice' text property, append the following special event: (defvar quail-conversion-str nil) (defun quail-input-method (key) - (if (or buffer-read-only + (if (or (and buffer-read-only + (not (or inhibit-read-only + (get-char-property (point) 'inhibit-read-only)))) (and overriding-terminal-local-map ;; If the overriding map is `universal-argument-map', that ;; must mean the user has pressed 'C-u KEY'. If KEY has a |