aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorRichard M. Stallman1993-06-16 06:46:27 +0000
committerRichard M. Stallman1993-06-16 06:46:27 +0000
commite74fbc701a0a1278ccedd03beb3df6f1590938ea (patch)
tree3774b9782364465659f5e6b95aabc83ac1229440 /src
parent07a675b77b2118d466f858239b408959403bd328 (diff)
downloademacs-e74fbc701a0a1278ccedd03beb3df6f1590938ea.tar.gz
emacs-e74fbc701a0a1278ccedd03beb3df6f1590938ea.zip
Calls to access_keymap updated.
Diffstat (limited to 'src')
-rw-r--r--src/keyboard.c19
1 files changed, 9 insertions, 10 deletions
diff --git a/src/keyboard.c b/src/keyboard.c
index c78c43c2d89..e7c692cbd6d 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -3110,7 +3110,7 @@ menu_bar_items ()
3110 for (mapno = 0; mapno < nmaps; mapno++) 3110 for (mapno = 0; mapno < nmaps; mapno++)
3111 { 3111 {
3112 if (! NILP (maps[mapno])) 3112 if (! NILP (maps[mapno]))
3113 def = get_keyelt (access_keymap (maps[mapno], Qmenu_bar, 1)); 3113 def = get_keyelt (access_keymap (maps[mapno], Qmenu_bar, 1, 0));
3114 else 3114 else
3115 def = Qnil; 3115 def = Qnil;
3116 3116
@@ -3445,7 +3445,7 @@ follow_key (key, nmaps, current, defs, next)
3445 if (! NILP (current[i])) 3445 if (! NILP (current[i]))
3446 { 3446 {
3447 next[i] = 3447 next[i] =
3448 get_keyelt (access_keymap (current[i], meta_prefix_char, 1)); 3448 get_keyelt (access_keymap (current[i], meta_prefix_char, 1, 0));
3449 3449
3450 /* Note that since we pass the resulting bindings through 3450 /* Note that since we pass the resulting bindings through
3451 get_keymap_1, non-prefix bindings for meta-prefix-char 3451 get_keymap_1, non-prefix bindings for meta-prefix-char
@@ -3464,7 +3464,7 @@ follow_key (key, nmaps, current, defs, next)
3464 { 3464 {
3465 if (! NILP (current[i])) 3465 if (! NILP (current[i]))
3466 { 3466 {
3467 defs[i] = get_keyelt (access_keymap (current[i], key, 1)); 3467 defs[i] = get_keyelt (access_keymap (current[i], key, 1, 0));
3468 if (! NILP (defs[i])) 3468 if (! NILP (defs[i]))
3469 first_binding = i; 3469 first_binding = i;
3470 } 3470 }
@@ -3492,7 +3492,7 @@ follow_key (key, nmaps, current, defs, next)
3492 { 3492 {
3493 if (! NILP (current[i])) 3493 if (! NILP (current[i]))
3494 { 3494 {
3495 defs[i] = get_keyelt (access_keymap (current[i], key, 1)); 3495 defs[i] = get_keyelt (access_keymap (current[i], key, 1, 0));
3496 if (! NILP (defs[i])) 3496 if (! NILP (defs[i]))
3497 first_binding = i; 3497 first_binding = i;
3498 } 3498 }
@@ -3997,19 +3997,18 @@ read_key_sequence (keybuf, bufsize, prompt)
3997 with meta_prefix_char. I hate this. */ 3997 with meta_prefix_char. I hate this. */
3998 if (XTYPE (key) == Lisp_Int && XINT (key) & meta_modifier) 3998 if (XTYPE (key) == Lisp_Int && XINT (key) & meta_modifier)
3999 { 3999 {
4000 fkey_next = 4000 fkey_next
4001 get_keymap_1 4001 = get_keymap_1
4002 (get_keyelt 4002 (get_keyelt
4003 (access_keymap 4003 (access_keymap (fkey_map, meta_prefix_char, 1, 0)),
4004 (fkey_map, meta_prefix_char, 1)),
4005 0, 1); 4004 0, 1);
4006 XFASTINT (key) = XFASTINT (key) & ~meta_modifier; 4005 XFASTINT (key) = XFASTINT (key) & ~meta_modifier;
4007 } 4006 }
4008 else 4007 else
4009 fkey_next = fkey_map; 4008 fkey_next = fkey_map;
4010 4009
4011 fkey_next = 4010 fkey_next
4012 get_keyelt (access_keymap (fkey_next, key, 1)); 4011 = get_keyelt (access_keymap (fkey_next, key, 1, 0));
4013 4012
4014 /* If keybuf[fkey_start..fkey_end] is bound in the 4013 /* If keybuf[fkey_start..fkey_end] is bound in the
4015 function key map and it's a suffix of the current 4014 function key map and it's a suffix of the current