diff options
| author | Stefan Monnier | 2011-03-31 00:24:03 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2011-03-31 00:24:03 -0400 |
| commit | 40d83b412f584cc02e68d4eac8fd5e6eb769e2fe (patch) | |
| tree | b56f27a7e6d75a8c1fd27b00179a27b5efea0a32 /src/keymap.c | |
| parent | f488fb6528738131ef41859e1f04125f2e50efce (diff) | |
| parent | 44f230aa043ebb222aa0876b44d70484d5dd38db (diff) | |
| download | emacs-40d83b412f584cc02e68d4eac8fd5e6eb769e2fe.tar.gz emacs-40d83b412f584cc02e68d4eac8fd5e6eb769e2fe.zip | |
Merge from trunk
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/src/keymap.c b/src/keymap.c index 06968a0d944..10000b935aa 100644 --- a/src/keymap.c +++ b/src/keymap.c | |||
| @@ -81,8 +81,7 @@ static void describe_map (Lisp_Object, Lisp_Object, | |||
| 81 | int, Lisp_Object, Lisp_Object*, int, int); | 81 | int, Lisp_Object, Lisp_Object*, int, int); |
| 82 | static void describe_vector (Lisp_Object, Lisp_Object, Lisp_Object, | 82 | static void describe_vector (Lisp_Object, Lisp_Object, Lisp_Object, |
| 83 | void (*) (Lisp_Object, Lisp_Object), int, | 83 | void (*) (Lisp_Object, Lisp_Object), int, |
| 84 | Lisp_Object, Lisp_Object, int *, | 84 | Lisp_Object, Lisp_Object, int, int); |
| 85 | int, int, int); | ||
| 86 | static void silly_event_symbol_error (Lisp_Object); | 85 | static void silly_event_symbol_error (Lisp_Object); |
| 87 | static Lisp_Object get_keyelt (Lisp_Object, int); | 86 | static Lisp_Object get_keyelt (Lisp_Object, int); |
| 88 | 87 | ||
| @@ -2388,7 +2387,7 @@ push_key_description (register unsigned int c, register char *p, int force_multi | |||
| 2388 | /* Now we are sure that C is a valid character code. */ | 2387 | /* Now we are sure that C is a valid character code. */ |
| 2389 | if (NILP (BVAR (current_buffer, enable_multibyte_characters)) | 2388 | if (NILP (BVAR (current_buffer, enable_multibyte_characters)) |
| 2390 | && ! force_multibyte) | 2389 | && ! force_multibyte) |
| 2391 | *p++ = multibyte_char_to_unibyte (c, Qnil); | 2390 | *p++ = multibyte_char_to_unibyte (c); |
| 2392 | else | 2391 | else |
| 2393 | p += CHAR_STRING (c, (unsigned char *) p); | 2392 | p += CHAR_STRING (c, (unsigned char *) p); |
| 2394 | } | 2393 | } |
| @@ -3353,7 +3352,7 @@ describe_map (Lisp_Object map, Lisp_Object prefix, | |||
| 3353 | || CHAR_TABLE_P (XCAR (tail))) | 3352 | || CHAR_TABLE_P (XCAR (tail))) |
| 3354 | describe_vector (XCAR (tail), | 3353 | describe_vector (XCAR (tail), |
| 3355 | prefix, Qnil, elt_describer, partial, shadow, map, | 3354 | prefix, Qnil, elt_describer, partial, shadow, map, |
| 3356 | (int *)0, 0, 1, mention_shadow); | 3355 | 1, mention_shadow); |
| 3357 | else if (CONSP (XCAR (tail))) | 3356 | else if (CONSP (XCAR (tail))) |
| 3358 | { | 3357 | { |
| 3359 | int this_shadowed = 0; | 3358 | int this_shadowed = 0; |
| @@ -3506,7 +3505,7 @@ DESCRIBER is the output function used; nil means use `princ'. */) | |||
| 3506 | specbind (Qstandard_output, Fcurrent_buffer ()); | 3505 | specbind (Qstandard_output, Fcurrent_buffer ()); |
| 3507 | CHECK_VECTOR_OR_CHAR_TABLE (vector); | 3506 | CHECK_VECTOR_OR_CHAR_TABLE (vector); |
| 3508 | describe_vector (vector, Qnil, describer, describe_vector_princ, 0, | 3507 | describe_vector (vector, Qnil, describer, describe_vector_princ, 0, |
| 3509 | Qnil, Qnil, (int *)0, 0, 0, 0); | 3508 | Qnil, Qnil, 0, 0); |
| 3510 | 3509 | ||
| 3511 | return unbind_to (count, Qnil); | 3510 | return unbind_to (count, Qnil); |
| 3512 | } | 3511 | } |
| @@ -3539,9 +3538,6 @@ DESCRIBER is the output function used; nil means use `princ'. */) | |||
| 3539 | 3538 | ||
| 3540 | ARGS is simply passed as the second argument to ELT_DESCRIBER. | 3539 | ARGS is simply passed as the second argument to ELT_DESCRIBER. |
| 3541 | 3540 | ||
| 3542 | INDICES and CHAR_TABLE_DEPTH are ignored. They will be removed in | ||
| 3543 | the near future. | ||
| 3544 | |||
| 3545 | KEYMAP_P is 1 if vector is known to be a keymap, so map ESC to M-. | 3541 | KEYMAP_P is 1 if vector is known to be a keymap, so map ESC to M-. |
| 3546 | 3542 | ||
| 3547 | ARGS is simply passed as the second argument to ELT_DESCRIBER. */ | 3543 | ARGS is simply passed as the second argument to ELT_DESCRIBER. */ |
| @@ -3550,8 +3546,7 @@ static void | |||
| 3550 | describe_vector (Lisp_Object vector, Lisp_Object prefix, Lisp_Object args, | 3546 | describe_vector (Lisp_Object vector, Lisp_Object prefix, Lisp_Object args, |
| 3551 | void (*elt_describer) (Lisp_Object, Lisp_Object), | 3547 | void (*elt_describer) (Lisp_Object, Lisp_Object), |
| 3552 | int partial, Lisp_Object shadow, Lisp_Object entire_map, | 3548 | int partial, Lisp_Object shadow, Lisp_Object entire_map, |
| 3553 | int *indices, int char_table_depth, int keymap_p, | 3549 | int keymap_p, int mention_shadow) |
| 3554 | int mention_shadow) | ||
| 3555 | { | 3550 | { |
| 3556 | Lisp_Object definition; | 3551 | Lisp_Object definition; |
| 3557 | Lisp_Object tem2; | 3552 | Lisp_Object tem2; |