From: Juri Linkov <juri@jurta.org>
Date: Sun, 3 Sep 2006 14:01:01 +0000 (+0000)
Subject: (quail-defrule-internal): Add a check if a key is a vector.
X-Git-Tag: emacs-pretest-22.0.90~779
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=35f111baba762a476b303076a848a335d1ac2f85;p=emacs.git

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

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)