Mercurial > emacs
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))) |