diff options
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/keymap.c b/src/keymap.c index 7169e6cb49f..6d535751dc9 100644 --- a/src/keymap.c +++ b/src/keymap.c | |||
| @@ -1438,11 +1438,8 @@ Control characters turn into C-whatever, etc.") | |||
| 1438 | case Lisp_Symbol: /* Function key or event-symbol */ | 1438 | case Lisp_Symbol: /* Function key or event-symbol */ |
| 1439 | return Fsymbol_name (key); | 1439 | return Fsymbol_name (key); |
| 1440 | 1440 | ||
| 1441 | case Lisp_String: | ||
| 1442 | return key; | ||
| 1443 | |||
| 1444 | default: | 1441 | default: |
| 1445 | error ("KEY must be an integer, cons, string, or symbol."); | 1442 | error ("KEY must be an integer, cons, or symbol."); |
| 1446 | } | 1443 | } |
| 1447 | } | 1444 | } |
| 1448 | 1445 | ||
| @@ -2076,6 +2073,9 @@ describe_map (map, keys, elt_describer, partial, shadow, seen) | |||
| 2076 | else if (CONSP (XCONS (tail)->car)) | 2073 | else if (CONSP (XCONS (tail)->car)) |
| 2077 | { | 2074 | { |
| 2078 | event = XCONS (XCONS (tail)->car)->car; | 2075 | event = XCONS (XCONS (tail)->car)->car; |
| 2076 | /* Don't show individual items in the Buffers menu. */ | ||
| 2077 | if (STRINGP (event)) | ||
| 2078 | continue; | ||
| 2079 | definition = get_keyelt (XCONS (XCONS (tail)->car)->cdr, 0); | 2079 | definition = get_keyelt (XCONS (XCONS (tail)->car)->cdr, 0); |
| 2080 | 2080 | ||
| 2081 | /* Don't show undefined commands or suppressed commands. */ | 2081 | /* Don't show undefined commands or suppressed commands. */ |