Mercurial > hg > xemacs-beta

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Sun, 07 Mar 2010 02:09:59 -0600
parents a9c41067dd88 99f8ebc082d9
children f965e31a35f0
comparison
equal deleted inserted replaced
5127:a9c41067dd88 5128:7be849cb8828
1726 return; 1726 return;
1727 1727
1728 if (indx == 0) 1728 if (indx == 0)
1729 new_keys = keys; 1729 new_keys = keys;
1730 else if (STRINGP (keys)) 1730 else if (STRINGP (keys))
1731 new_keys = Fsubstring (keys, Qzero, make_int (indx)); 1731 new_keys = Fsubseq (keys, Qzero, make_int (indx));
1732 else if (VECTORP (keys)) 1732 else if (VECTORP (keys))
1733 { 1733 {
1734 new_keys = make_vector (indx, Qnil); 1734 new_keys = make_vector (indx, Qnil);
1735 for (i = 0; i < indx; i++) 1735 for (i = 0; i < indx; i++)
1736 XVECTOR_DATA (new_keys) [i] = XVECTOR_DATA (keys) [i]; 1736 XVECTOR_DATA (new_keys) [i] = XVECTOR_DATA (keys) [i];