diff options
| author | Katsumi Yamaoka | 2017-12-11 01:27:17 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2017-12-11 01:27:17 +0000 |
| commit | 5bcd468a9e007351bfad65fb5c4b49b0c319947f (patch) | |
| tree | cc52adf7c4034935272861225841f7f12db9fb4d | |
| parent | 87baf1242e9c0130148e5547804db6f1fbfb8c55 (diff) | |
| download | emacs-5bcd468a9e007351bfad65fb5c4b49b0c319947f.tar.gz emacs-5bcd468a9e007351bfad65fb5c4b49b0c319947f.zip | |
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).
| -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: | |||
| 1330 | (defvar quail-conversion-str nil) | 1330 | (defvar quail-conversion-str nil) |
| 1331 | 1331 | ||
| 1332 | (defun quail-input-method (key) | 1332 | (defun quail-input-method (key) |
| 1333 | (if (or buffer-read-only | 1333 | (if (or (and buffer-read-only |
| 1334 | (not (or inhibit-read-only | ||
| 1335 | (get-char-property (point) 'inhibit-read-only)))) | ||
| 1334 | (and overriding-terminal-local-map | 1336 | (and overriding-terminal-local-map |
| 1335 | ;; If the overriding map is `universal-argument-map', that | 1337 | ;; If the overriding map is `universal-argument-map', that |
| 1336 | ;; must mean the user has pressed 'C-u KEY'. If KEY has a | 1338 | ;; must mean the user has pressed 'C-u KEY'. If KEY has a |