(quail-defrule-internal): Add a check if a key is a vector.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 639ddae4118..cd606e8f4da 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-09-03  Juri Linkov  <juri@jurta.org>
+
+        * international/quail.el (quail-defrule-internal): Add a check
+        if a key is a vector.
+
 2006-09-02  Juri Linkov  <juri@jurta.org>
 
         * man.el (Man-topic-history): New variable.
diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index b21d2623d80..fceebf64f22 100644
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -1095,7 +1095,7 @@ Optional 5th arg DECODE-MAP is a Quail decode map.
 
 Optional 6th arg PROPS is a property list annotating TRANS.  See the
 function `quail-define-rules' for the detail."
-  (if (null (stringp key))
+  (if (not (or (stringp key) (vectorp key)))
       (error "Invalid Quail key `%s'" key))
   (if (not (or (numberp trans) (stringp trans) (vectorp trans)
                (consp trans)