(where_is_internal_1): If key is a cons, store the copy

in sequence.
2007-09-20 07:51:37 +00:00
parent 0a4bacdc2b
commit 43dfda2b48
1 changed files with 5 additions and 1 deletions
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -2930,7 +2930,11 @@ where_is_internal_1 (key, binding, args, data)
      Faset (sequence, last, make_number (XINT (key) | meta_modifier));
    }
  else
-    sequence = append_key (this, key);
+    {
+      if (CONSP (key))
+	key = Fcons (XCAR (key), XCDR (key));
+      sequence = append_key (this, key);
+    }

  if (!NILP (where_is_cache))
    {