diff options
| -rw-r--r-- | lisp/international/quail.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/international/quail.el b/lisp/international/quail.el index aec2358fdaa..7cedcbf665a 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el | |||
| @@ -2772,6 +2772,8 @@ If CHAR is an ASCII character and can be input by typing itself, return t." | |||
| 2772 | (interactive) | 2772 | (interactive) |
| 2773 | (or current-input-method | 2773 | (or current-input-method |
| 2774 | (error "No input method is activated")) | 2774 | (error "No input method is activated")) |
| 2775 | (or (assoc current-input-method quail-package-alist) | ||
| 2776 | (error "The current input method is not using Quail.")) | ||
| 2775 | (let* ((char (following-char)) | 2777 | (let* ((char (following-char)) |
| 2776 | (key-list (quail-find-key char))) | 2778 | (key-list (quail-find-key char))) |
| 2777 | (cond ((consp key-list) | 2779 | (cond ((consp key-list) |