aboutsummaryrefslogtreecommitdiffstats
path: root/src/keymap.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/keymap.c')
-rw-r--r--src/keymap.c15
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);
82static void describe_vector (Lisp_Object, Lisp_Object, Lisp_Object, 82static 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);
86static void silly_event_symbol_error (Lisp_Object); 85static void silly_event_symbol_error (Lisp_Object);
87static Lisp_Object get_keyelt (Lisp_Object, int); 86static 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
3550describe_vector (Lisp_Object vector, Lisp_Object prefix, Lisp_Object args, 3546describe_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;