diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-04-29 06:05:19 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-04-29 06:05:19 +0000 |
| commit | c96dcc01cd149407a36cfefb8123b95c552d0b95 (patch) | |
| tree | 071a773f97167879c8cec4b950b245b2f4cceb17 | |
| parent | 4f9b95e52c249fef9d7478ab7a9a7571d038f341 (diff) | |
| download | emacs-c96dcc01cd149407a36cfefb8123b95c552d0b95.tar.gz | |
(Fsingle_key_description): Undo previous change.
(describe_map): Skip string entries.
| -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.") case Lisp_Symbol: /* Function key or event-symbol */ return Fsymbol_name (key); - case Lisp_String: - return key; - default: - error ("KEY must be an integer, cons, string, or symbol."); + error ("KEY must be an integer, cons, or symbol."); } } @@ -2076,6 +2073,9 @@ describe_map (map, keys, elt_describer, partial, shadow, seen) else if (CONSP (XCONS (tail)->car)) { event = XCONS (XCONS (tail)->car)->car; + /* Don't show individual items in the Buffers menu. */ + if (STRINGP (event)) + continue; definition = get_keyelt (XCONS (XCONS (tail)->car)->cdr, 0); /* Don't show undefined commands or suppressed commands. */ |
