From 4956d1efe2067a859d1df4c81eabeeab2a113cbd Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 12 Jan 2001 11:19:36 +0000 Subject: [PATCH] Call get_local_map with new argument list. (Fwhere_is_internal): Rename parameter XKEYMAP to KEYMAP. --- src/ChangeLog | 12 ++++++++++++ src/keymap.c | 25 +++++++++++++------------ 2 files changed, 25 insertions(+), 12 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 01d969a94f2..e5c1b6b1d0a 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,15 @@ +2001-01-12 Gerd Moellmann + + * keyboard.c: Call get_local_map with new argument list. + + * intervals.c (get_local_map): Change TYPE to Lisp_Object. + + * intervals.h (enum map_property): Removed. + (get_local_map): Change prototype. + + * keymap.c: Call get_local_map with new argument list. + (Fwhere_is_internal): Rename parameter XKEYMAP to KEYMAP. + 2001-01-11 Gerd Moellmann * xdisp.c (build_desired_tool_bar_string): Correct the computation diff --git a/src/keymap.c b/src/keymap.c index 094dac4d13c..f19b1e6146b 100644 --- a/src/keymap.c +++ b/src/keymap.c @@ -1259,7 +1259,7 @@ recognize the default bindings, just as `read-key-sequence' does.") RETURN_UNGCPRO (value); } - local = get_local_map (PT, current_buffer, keymap); + local = get_local_map (PT, current_buffer, Qkeymap); if (! NILP (local)) { value = Flookup_key (local, key, accept_default); @@ -1267,7 +1267,7 @@ recognize the default bindings, just as `read-key-sequence' does.") RETURN_UNGCPRO (value); } - local = get_local_map (PT, current_buffer, local_map); + local = get_local_map (PT, current_buffer, Qlocal_map); if (! NILP (local)) { @@ -2239,8 +2239,8 @@ and entirely reject menu bindings.\n\ If optional 4th arg NOINDIRECT is non-nil, don't follow indirections\n\ to other keymaps or slots. This makes it possible to search for an\n\ indirect definition itself.") - (definition, xkeymap, firstonly, noindirect) - Lisp_Object definition, xkeymap; + (definition, keymap, firstonly, noindirect) + Lisp_Object definition, keymap; Lisp_Object firstonly, noindirect; { Lisp_Object sequences, keymaps; @@ -2249,21 +2249,22 @@ indirect definition itself.") int nomenus = !NILP (firstonly) && !EQ (firstonly, Qnon_ascii); /* Find the relevant keymaps. */ - if (CONSP (xkeymap) && KEYMAPP (XCAR (xkeymap))) - keymaps = xkeymap; - else if (! NILP (xkeymap)) - keymaps = Fcons (xkeymap, Fcons (current_global_map, Qnil)); + if (CONSP (keymap) && KEYMAPP (XCAR (keymap))) + keymaps = keymap; + else if (! NILP (keymap)) + keymaps = Fcons (keymap, Fcons (current_global_map, Qnil)); else keymaps = Fdelq (Qnil, nconc2 (Fcurrent_minor_mode_maps (), - Fcons (get_local_map (PT, current_buffer, keymap), - Fcons (get_local_map (PT, current_buffer, local_map), + Fcons (get_local_map (PT, current_buffer, Qkeymap), + Fcons (get_local_map (PT, current_buffer, + Qlocal_map), Fcons (current_global_map, Qnil))))); /* Only use caching for the menubar (i.e. called with (def nil t nil). - We don't really need to check `xkeymap'. */ - if (nomenus && NILP (noindirect) && NILP (xkeymap)) + We don't really need to check `keymap'. */ + if (nomenus && NILP (noindirect) && NILP (keymap)) { /* Check heuristic-consistency of the cache. */ if (NILP (Fequal (keymaps, where_is_cache_keymaps))) -- 2.39.5