diff options
| author | Richard M. Stallman | 1993-06-16 06:46:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-06-16 06:46:27 +0000 |
| commit | e74fbc701a0a1278ccedd03beb3df6f1590938ea (patch) | |
| tree | 3774b9782364465659f5e6b95aabc83ac1229440 /src | |
| parent | 07a675b77b2118d466f858239b408959403bd328 (diff) | |
| download | emacs-e74fbc701a0a1278ccedd03beb3df6f1590938ea.tar.gz emacs-e74fbc701a0a1278ccedd03beb3df6f1590938ea.zip | |
Calls to access_keymap updated.
Diffstat (limited to 'src')
| -rw-r--r-- | src/keyboard.c | 19 |
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 |