Mercurial > hg > xemacs-beta

comparison src/keymap.c @ 400:a86b2b5e0111 r21-2-30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-30
author cvs
date Mon, 13 Aug 2007 11:14:34 +0200
parents 74fd4e045ea6
children 2f8bb876ab1d
comparison
equal deleted inserted replaced
399:376370fb5946 400:a86b2b5e0111
1067 else if (CONSP (idx)) 1067 else if (CONSP (idx))
1068 { 1068 {
1069 if (!INTP (XCDR (idx))) 1069 if (!INTP (XCDR (idx)))
1070 return Qnil; 1070 return Qnil;
1071 indirection.keysym = XCAR (idx); 1071 indirection.keysym = XCAR (idx);
1072 indirection.modifiers = XINT (XCDR (idx)); 1072 indirection.modifiers = (unsigned char) XINT (XCDR (idx));
1073 } 1073 }
1074 else if (SYMBOLP (idx)) 1074 else if (SYMBOLP (idx))
1075 { 1075 {
1076 indirection.keysym = idx; 1076 indirection.keysym = idx;
1077 indirection.modifiers = 0; 1077 indirection.modifiers = 0;
4202 4202
4203 4203
4204 void 4204 void
4205 syms_of_keymap (void) 4205 syms_of_keymap (void)
4206 { 4206 {
4207 INIT_LRECORD_IMPLEMENTATION (keymap);
4208
4207 defsymbol (&Qminor_mode_map_alist, "minor-mode-map-alist"); 4209 defsymbol (&Qminor_mode_map_alist, "minor-mode-map-alist");
4208 4210
4209 defsymbol (&Qkeymapp, "keymapp"); 4211 defsymbol (&Qkeymapp, "keymapp");
4210 4212
4211 defsymbol (&Qsuppress_keymap, "suppress-keymap"); 4213 defsymbol (&Qsuppress_keymap, "suppress-keymap");