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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 639ddae4118617fa2cdaa7f5859237df17699d7f..cd606e8f4daedd6b465290bc2d29a39a41b87ed6 100644 (file)
--- 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 b21d2623d80985b36864695c4a901a3b3430075a..fceebf64f2200ca19d4895d48224af95876a79de 100644 (file)
--- 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)