comparison src/keymap.c @ 85106:fd282fb888de

Add new `input-decode-map' keymap and use it for temrinal escape sequences. * keyboard.h (struct kboard): Add Vinput_decode_map. Remove Vlocal_key_translation_map. * keyboard.c (read_key_sequence): Add support for input-decode-map. (init_kboard): Init input-decode-map. Replace local-key-translation-map back with key-translation-map. (syms_of_keyboard): Declare input-decode-map. Remove local-key-translation-map. Update docstrings. (mark_kboards): Mark Vinput_decode_map. Don't mark Vlocal_key_translation_map. * keymap.c (Fdescribe_buffer_bindings): Describe input-decode-map. Replace local-key-translation-map back with key-translation-map. * term.c (term_get_fkeys_1, CONDITIONAL_REASSIGN): Bind in input-decode-map rather than function-key-map.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 09 Oct 2007 05:05:39 +0000
parents 5b644ae74c91
children f7d19cfed7da bdb3fe0ba9fa
comparison
equal deleted inserted replaced
85105:ba4f1a829f83 85106:fd282fb888de
3025 } 3025 }
3026 3026
3027 insert ("\n", 1); 3027 insert ("\n", 1);
3028 } 3028 }
3029 3029
3030 if (!NILP (current_kboard->Vlocal_key_translation_map)) 3030 if (!NILP (Vkey_translation_map))
3031 describe_map_tree (current_kboard->Vlocal_key_translation_map, 0, Qnil, prefix, 3031 describe_map_tree (Vkey_translation_map, 0, Qnil, prefix,
3032 "Key translations", nomenu, 1, 0, 0); 3032 "Key translations", nomenu, 1, 0, 0);
3033 3033
3034 3034
3035 /* Print the (major mode) local map. */ 3035 /* Print the (major mode) local map. */
3036 start1 = Qnil; 3036 start1 = Qnil;
3118 3118
3119 /* Print the function-key-map translations under this prefix. */ 3119 /* Print the function-key-map translations under this prefix. */
3120 if (!NILP (current_kboard->Vlocal_function_key_map)) 3120 if (!NILP (current_kboard->Vlocal_function_key_map))
3121 describe_map_tree (current_kboard->Vlocal_function_key_map, 0, Qnil, prefix, 3121 describe_map_tree (current_kboard->Vlocal_function_key_map, 0, Qnil, prefix,
3122 "\f\nFunction key map translations", nomenu, 1, 0, 0); 3122 "\f\nFunction key map translations", nomenu, 1, 0, 0);
3123
3124 /* Print the input-decode-map translations under this prefix. */
3125 if (!NILP (current_kboard->Vinput_decode_map))
3126 describe_map_tree (current_kboard->Vinput_decode_map, 0, Qnil, prefix,
3127 "\f\nInput decoding map translations", nomenu, 1, 0, 0);
3123 3128
3124 UNGCPRO; 3129 UNGCPRO;
3125 return Qnil; 3130 return Qnil;
3126 } 3131 }
3127 3132