Mercurial > hg > xemacs-beta
comparison src/keymap.c @ 175:2d532a89d707 r20-3b14
Import from CVS: tag r20-3b14
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:50:14 +0200 |
| parents | 8eaf7971accc |
| children | e121b013d1f0 |
comparison
equal
deleted
inserted
replaced
| 174:bb3568571b84 | 175:2d532a89d707 |
|---|---|
| 2616 nmaps = countof (maps); | 2616 nmaps = countof (maps); |
| 2617 return process_event_binding_result (lookup_events (event0, nmaps, maps, | 2617 return process_event_binding_result (lookup_events (event0, nmaps, maps, |
| 2618 accept_default)); | 2618 accept_default)); |
| 2619 } | 2619 } |
| 2620 | 2620 |
| 2621 /* like event_binding, but specify a keymap to search */ | |
| 2622 | |
| 2623 Lisp_Object | |
| 2624 event_binding_in (Lisp_Object event0, Lisp_Object keymap, int accept_default) | |
| 2625 { | |
| 2626 /* This function can GC */ | |
| 2627 Lisp_Object maps[1]; | |
| 2628 | |
| 2629 if (!KEYMAPP (keymap)) | |
| 2630 return Qnil; | |
| 2631 | |
| 2632 maps[0] = keymap; | |
| 2633 return process_event_binding_result (lookup_events (event0, 1, maps, | |
| 2634 accept_default)); | |
| 2635 } | |
| 2636 | |
| 2621 /* Attempts to find a function key mapping corresponding to the | 2637 /* Attempts to find a function key mapping corresponding to the |
| 2622 event-sequence whose head is event0 (sequence is threaded through | 2638 event-sequence whose head is event0 (sequence is threaded through |
| 2623 event_next). The return value will be the same as for event_binding(). */ | 2639 event_next). The return value will be the same as for event_binding(). */ |
| 2624 Lisp_Object | 2640 Lisp_Object |
| 2625 munging_key_map_event_binding (Lisp_Object event0, | 2641 munging_key_map_event_binding (Lisp_Object event0, |