# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1170294304 0
# Node ID 2a562d836178ea4156813d6db028a176af7ed7b3
# Parent  586d8381a846e45f549a944fd3c9b780cd4f5e9a
(quail-show-key): Signal an error if the
current input method is not using Quail.

diff -r 586d8381a846 -r 2a562d836178 lisp/international/quail.el
--- a/lisp/international/quail.el	Thu Feb 01 01:04:59 2007 +0000
+++ b/lisp/international/quail.el	Thu Feb 01 01:45:04 2007 +0000
@@ -2772,6 +2772,8 @@
   (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)