From: Kenichi Handa <handa@m17n.org>
Date: Thu, 1 Feb 2007 01:45:04 +0000 (+0000)
Subject: (quail-show-key): Signal an error if the
X-Git-Tag: emacs-pretest-22.0.94~473
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fdb594455b1fd2c06d508ee24079ccae64cbe11b;p=emacs.git

(quail-show-key): Signal an error if the
current input method is not using Quail.
---

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)