diff options
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 30 |
1 files changed, 10 insertions, 20 deletions
diff --git a/src/keymap.c b/src/keymap.c index 5c0ddcd1d9d..9ff0b52df72 100644 --- a/src/keymap.c +++ b/src/keymap.c @@ -2894,8 +2894,7 @@ You type Translation\n\ if (!NILP (Vkey_translation_map)) { Lisp_Object msg = build_unibyte_string ("Key translations"); - CALLN (Ffuncall, - Qhelp__describe_map_tree, + calln (Qhelp__describe_map_tree, Vkey_translation_map, Qnil, Qnil, prefix, msg, nomenu, Qt, Qnil, Qnil, buffer); } @@ -2908,8 +2907,7 @@ You type Translation\n\ if (!NILP (start1)) { Lisp_Object msg = build_unibyte_string ("\f\nOverriding Bindings"); - CALLN (Ffuncall, - Qhelp__describe_map_tree, + calln (Qhelp__describe_map_tree, start1, Qt, shadow, prefix, msg, nomenu, Qnil, Qnil, Qnil, buffer); shadow = Fcons (start1, shadow); @@ -2921,8 +2919,7 @@ You type Translation\n\ if (!NILP (start1)) { Lisp_Object msg = build_unibyte_string ("\f\nOverriding Bindings"); - CALLN (Ffuncall, - Qhelp__describe_map_tree, + calln (Qhelp__describe_map_tree, start1, Qt, shadow, prefix, msg, nomenu, Qnil, Qnil, Qnil, buffer); shadow = Fcons (start1, shadow); @@ -2944,8 +2941,7 @@ You type Translation\n\ if (!NILP (start1)) { Lisp_Object msg = build_unibyte_string ("\f\n`keymap' Property Bindings"); - CALLN (Ffuncall, - Qhelp__describe_map_tree, + calln (Qhelp__describe_map_tree, start1, Qt, shadow, prefix, msg, nomenu, Qnil, Qnil, Qnil, buffer); shadow = Fcons (start1, shadow); @@ -2977,8 +2973,7 @@ You type Translation\n\ *p = 0; Lisp_Object msg = build_unibyte_string (title); - CALLN (Ffuncall, - Qhelp__describe_map_tree, + calln (Qhelp__describe_map_tree, maps[i], Qt, shadow, prefix, msg, nomenu, Qnil, Qnil, Qnil, buffer); shadow = Fcons (maps[i], shadow); @@ -2995,16 +2990,14 @@ You type Translation\n\ CALLN (Fformat, build_unibyte_string ("\f\n`%s' Major Mode Bindings"), XBUFFER (buffer)->major_mode_); - CALLN (Ffuncall, - Qhelp__describe_map_tree, + calln (Qhelp__describe_map_tree, start1, Qt, shadow, prefix, msg, nomenu, Qnil, Qnil, Qnil, buffer); } else { Lisp_Object msg = build_unibyte_string ("\f\n`local-map' Property Bindings"); - CALLN (Ffuncall, - Qhelp__describe_map_tree, + calln (Qhelp__describe_map_tree, start1, Qt, shadow, prefix, msg, nomenu, Qnil, Qnil, Qnil, buffer); } @@ -3014,8 +3007,7 @@ You type Translation\n\ } Lisp_Object msg = build_unibyte_string ("\f\nGlobal Bindings"); - CALLN (Ffuncall, - Qhelp__describe_map_tree, + calln (Qhelp__describe_map_tree, current_global_map, Qt, shadow, prefix, msg, nomenu, Qnil, Qt, Qnil, buffer); @@ -3023,8 +3015,7 @@ You type Translation\n\ if (!NILP (KVAR (current_kboard, Vlocal_function_key_map))) { Lisp_Object msg = build_unibyte_string ("\f\nFunction key map translations"); - CALLN (Ffuncall, - Qhelp__describe_map_tree, + calln (Qhelp__describe_map_tree, KVAR (current_kboard, Vlocal_function_key_map), Qnil, Qnil, prefix, msg, nomenu, Qt, Qnil, Qnil, buffer); } @@ -3033,8 +3024,7 @@ You type Translation\n\ if (!NILP (KVAR (current_kboard, Vinput_decode_map))) { Lisp_Object msg = build_unibyte_string ("\f\nInput decoding map translations"); - CALLN (Ffuncall, - Qhelp__describe_map_tree, + calln (Qhelp__describe_map_tree, KVAR (current_kboard, Vinput_decode_map), Qnil, Qnil, prefix, msg, nomenu, Qt, Qnil, Qnil, buffer); } |