882 |
{ |
{ |
883 |
struct buffer *oldbuf; |
struct buffer *oldbuf; |
884 |
int start_idx; |
int start_idx; |
885 |
|
/* This is for computing the SHADOWS arg for describe_map_tree. */ |
886 |
|
Lisp_Object active_maps = Fcurrent_active_maps (Qnil); |
887 |
|
Lisp_Object earlier_maps; |
888 |
|
|
889 |
changed = 1; |
changed = 1; |
890 |
strp += 2; /* skip \{ or \< */ |
strp += 2; /* skip \{ or \< */ |
935 |
else if (start[-1] == '<') |
else if (start[-1] == '<') |
936 |
keymap = tem; |
keymap = tem; |
937 |
else |
else |
938 |
describe_map_tree (tem, 1, Qnil, Qnil, (char *)0, 1, 0, 0); |
{ |
939 |
|
/* Get the list of active keymaps that precede this one. |
940 |
|
If this one's not active, get nil. */ |
941 |
|
earlier_maps = Fcdr (Fmemq (tem, Freverse (active_maps))); |
942 |
|
describe_map_tree (tem, 1, Fnreverse (earlier_maps), |
943 |
|
Qnil, (char *)0, 1, 0, 0, 1); |
944 |
|
} |
945 |
tem = Fbuffer_string (); |
tem = Fbuffer_string (); |
946 |
Ferase_buffer (); |
Ferase_buffer (); |
947 |
set_buffer_internal (oldbuf); |
set_buffer_internal (oldbuf); |