Mercurial > emacs
comparison lisp/international/quail.el @ 75583:2a562d836178
(quail-show-key): Signal an error if the
current input method is not using Quail.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 01 Feb 2007 01:45:04 +0000 |
| parents | 607b2d435418 |
| children | 81bd2556e97d |
comparison
equal
deleted
inserted
replaced
| 75582:586d8381a846 | 75583:2a562d836178 |
|---|---|
| 2770 (defun quail-show-key () | 2770 (defun quail-show-key () |
| 2771 "Show a list of key strings to type for inputting a character at point." | 2771 "Show a list of key strings to type for inputting a character at point." |
| 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) |
| 2778 (message "To input `%c', type \"%s\"" | 2780 (message "To input `%c', type \"%s\"" |
| 2779 char | 2781 char |