diff src/keymap.c @ 5128:7be849cb8828 ben-lisp-object

merge
author Ben Wing <ben@xemacs.org>
date Sun, 07 Mar 2010 02:09:59 -0600
parents a9c41067dd88 99f8ebc082d9
children f965e31a35f0
line wrap: on
line diff
--- a/src/keymap.c	Fri Mar 05 04:08:17 2010 -0600
+++ b/src/keymap.c	Sun Mar 07 02:09:59 2010 -0600
@@ -1728,7 +1728,7 @@
   if (indx == 0)
     new_keys = keys;
   else if (STRINGP (keys))
-    new_keys = Fsubstring (keys, Qzero, make_int (indx));
+    new_keys = Fsubseq (keys, Qzero, make_int (indx));
   else if (VECTORP (keys))
     {
       new_keys = make_vector (indx, Qnil);