(quail-show-key): Signal an error if the

current input method is not using Quail.
2007-02-01 01:45:04 +00:00
parent a86bd65016
commit fdb594455b
1 changed files with 2 additions and 0 deletions
--- 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)