diff options
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/keymap.c b/src/keymap.c index 8ee4f41bd6f..b694deadcba 100644 --- a/src/keymap.c +++ b/src/keymap.c | |||
| @@ -1883,7 +1883,7 @@ bindings; see the description of `lookup-key' for more details about this. */) | |||
| 1883 | (Lisp_Object keys, Lisp_Object accept_default) | 1883 | (Lisp_Object keys, Lisp_Object accept_default) |
| 1884 | { | 1884 | { |
| 1885 | register Lisp_Object map; | 1885 | register Lisp_Object map; |
| 1886 | map = current_buffer->keymap; | 1886 | map = B_ (current_buffer, keymap); |
| 1887 | if (NILP (map)) | 1887 | if (NILP (map)) |
| 1888 | return Qnil; | 1888 | return Qnil; |
| 1889 | return Flookup_key (map, keys, accept_default); | 1889 | return Flookup_key (map, keys, accept_default); |
| @@ -1988,7 +1988,7 @@ If KEYMAP is nil, that means no local keymap. */) | |||
| 1988 | if (!NILP (keymap)) | 1988 | if (!NILP (keymap)) |
| 1989 | keymap = get_keymap (keymap, 1, 1); | 1989 | keymap = get_keymap (keymap, 1, 1); |
| 1990 | 1990 | ||
| 1991 | current_buffer->keymap = keymap; | 1991 | B_ (current_buffer, keymap) = keymap; |
| 1992 | 1992 | ||
| 1993 | return Qnil; | 1993 | return Qnil; |
| 1994 | } | 1994 | } |
| @@ -1998,7 +1998,7 @@ DEFUN ("current-local-map", Fcurrent_local_map, Scurrent_local_map, 0, 0, 0, | |||
| 1998 | Normally the local keymap is set by the major mode with `use-local-map'. */) | 1998 | Normally the local keymap is set by the major mode with `use-local-map'. */) |
| 1999 | (void) | 1999 | (void) |
| 2000 | { | 2000 | { |
| 2001 | return current_buffer->keymap; | 2001 | return B_ (current_buffer, keymap); |
| 2002 | } | 2002 | } |
| 2003 | 2003 | ||
| 2004 | DEFUN ("current-global-map", Fcurrent_global_map, Scurrent_global_map, 0, 0, 0, | 2004 | DEFUN ("current-global-map", Fcurrent_global_map, Scurrent_global_map, 0, 0, 0, |
| @@ -2379,7 +2379,7 @@ push_key_description (register unsigned int c, register char *p, int force_multi | |||
| 2379 | *p++ = 'C'; | 2379 | *p++ = 'C'; |
| 2380 | } | 2380 | } |
| 2381 | else if (c < 128 | 2381 | else if (c < 128 |
| 2382 | || (NILP (current_buffer->enable_multibyte_characters) | 2382 | || (NILP (B_ (current_buffer, enable_multibyte_characters)) |
| 2383 | && SINGLE_BYTE_CHAR_P (c) | 2383 | && SINGLE_BYTE_CHAR_P (c) |
| 2384 | && !force_multibyte)) | 2384 | && !force_multibyte)) |
| 2385 | { | 2385 | { |
| @@ -2388,7 +2388,7 @@ push_key_description (register unsigned int c, register char *p, int force_multi | |||
| 2388 | else | 2388 | else |
| 2389 | { | 2389 | { |
| 2390 | /* Now we are sure that C is a valid character code. */ | 2390 | /* Now we are sure that C is a valid character code. */ |
| 2391 | if (NILP (current_buffer->enable_multibyte_characters) | 2391 | if (NILP (B_ (current_buffer, enable_multibyte_characters)) |
| 2392 | && ! force_multibyte) | 2392 | && ! force_multibyte) |
| 2393 | *p++ = multibyte_char_to_unibyte (c, Qnil); | 2393 | *p++ = multibyte_char_to_unibyte (c, Qnil); |
| 2394 | else | 2394 | else |
| @@ -3048,7 +3048,7 @@ You type Translation\n\ | |||
| 3048 | XBUFFER (buffer), Qlocal_map); | 3048 | XBUFFER (buffer), Qlocal_map); |
| 3049 | if (!NILP (start1)) | 3049 | if (!NILP (start1)) |
| 3050 | { | 3050 | { |
| 3051 | if (EQ (start1, XBUFFER (buffer)->keymap)) | 3051 | if (EQ (start1, B_ (XBUFFER (buffer), keymap))) |
| 3052 | describe_map_tree (start1, 1, shadow, prefix, | 3052 | describe_map_tree (start1, 1, shadow, prefix, |
| 3053 | "\f\nMajor Mode Bindings", nomenu, 0, 0, 0); | 3053 | "\f\nMajor Mode Bindings", nomenu, 0, 0, 0); |
| 3054 | else | 3054 | else |