comparison lisp/international/quail.el @ 72627:ab32c6acd9f2

(quail-defrule-internal): Add a check if a key is a vector.
author Juri Linkov <juri@jurta.org>
date Sun, 03 Sep 2006 14:00:19 +0000
parents adb1cbfb05ca
children 43cc94d955c2 c358d0861b16
comparison
equal deleted inserted replaced
72626:187f38ad8b4e 72627:ab32c6acd9f2
1093 1093
1094 Optional 5th arg DECODE-MAP is a Quail decode map. 1094 Optional 5th arg DECODE-MAP is a Quail decode map.
1095 1095
1096 Optional 6th arg PROPS is a property list annotating TRANS. See the 1096 Optional 6th arg PROPS is a property list annotating TRANS. See the
1097 function `quail-define-rules' for the detail." 1097 function `quail-define-rules' for the detail."
1098 (if (null (stringp key)) 1098 (if (not (or (stringp key) (vectorp key)))
1099 (error "Invalid Quail key `%s'" key)) 1099 (error "Invalid Quail key `%s'" key))
1100 (if (not (or (numberp trans) (stringp trans) (vectorp trans) 1100 (if (not (or (numberp trans) (stringp trans) (vectorp trans)
1101 (consp trans) 1101 (consp trans)
1102 (symbolp trans) 1102 (symbolp trans)
1103 (quail-map-p trans))) 1103 (quail-map-p trans)))