From: Kenichi Handa <handa@m17n.org>
Date: Thu, 20 Sep 2007 07:51:37 +0000 (+0000)
Subject: (where_is_internal_1): If key is a cons, store the copy
X-Git-Tag: emacs-pretest-23.0.90~8295^2~323
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=43dfda2b4875d46caf87a48d2ee048699ded7d66;p=emacs.git

(where_is_internal_1): If key is a cons, store the copy
in sequence.
---

diff --git a/src/keymap.c b/src/keymap.c
index bfc81614245..7f329cc9a1a 100644
--- 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))
     {