diff options
| author | Kenichi Handa <handa@m17n.org> | 2007-02-01 01:45:04 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2007-02-01 01:45:04 +0000 |
| commit | fdb594455b1fd2c06d508ee24079ccae64cbe11b (patch) | |
| tree | 55a6666b6659223b4081303f5517d3754ed1edc7 /lisp/international | |
| parent | a86bd65016a92e8c65c73cdfc7790d3917e427d3 (diff) | |
| download | emacs-fdb594455b1fd2c06d508ee24079ccae64cbe11b.tar.gz | |
(quail-show-key): Signal an error if the
current input method is not using Quail.
Diffstat (limited to 'lisp/international')
| -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." (interactive) (or current-input-method (error "No input method is activated")) + (or (assoc current-input-method quail-package-alist) + (error "The current input method is not using Quail.")) (let* ((char (following-char)) (key-list (quail-find-key char))) (cond ((consp key-list) |