826 |
if (!CONSP (keymap) || !EQ (XCAR (keymap), Qkeymap)) |
if (!CONSP (keymap) || !EQ (XCAR (keymap), Qkeymap)) |
827 |
error ("attempt to define a key in a non-keymap"); |
error ("attempt to define a key in a non-keymap"); |
828 |
|
|
829 |
/* If idx is a list (some sort of mouse click, perhaps?), |
/* If idx is a cons, and the car part is a character, idx must be of |
830 |
the index we want to use is the car of the list, which |
the form (FROM-CHAR . TO-CHAR). */ |
831 |
ought to be a symbol. */ |
if (CONSP (idx) && CHARACTERP (XCAR (idx))) |
832 |
idx = EVENT_HEAD (idx); |
CHECK_CHARACTER_CDR (idx); |
833 |
|
else |
834 |
|
/* If idx is a list (some sort of mouse click, perhaps?), |
835 |
|
the index we want to use is the car of the list, which |
836 |
|
ought to be a symbol. */ |
837 |
|
idx = EVENT_HEAD (idx); |
838 |
|
|
839 |
/* If idx is a symbol, it might have modifiers, which need to |
/* If idx is a symbol, it might have modifiers, which need to |
840 |
be put in the canonical order. */ |
be put in the canonical order. */ |