From 35f111baba762a476b303076a848a335d1ac2f85 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 3 Sep 2006 14:01:01 +0000 Subject: [PATCH] (quail-defrule-internal): Add a check if a key is a vector. --- lisp/ChangeLog | 5 +++++ lisp/international/quail.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * international/quail.el (quail-defrule-internal): Add a check + if a key is a vector. + 2006-09-02 Juri Linkov * 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) -- 2.39.2