Mercurial > emacs
comparison src/xmenu.c @ 1933:63ba4f555b90
* minibuf.c (Fdisplay_completion_list): Pass the proper number of
arguments to Flength.
* xmenu.c (list_of_items): Same.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Mon, 22 Feb 1993 15:09:33 +0000 |
parents | 1463592a6463 |
children | 0634d08c28d1 |
comparison
equal
deleted
inserted
replaced
1932:56dd1fbd33c2 | 1933:63ba4f555b90 |
---|---|
651 Lisp_Object tail, item, item1; | 651 Lisp_Object tail, item, item1; |
652 int i; | 652 int i; |
653 | 653 |
654 if (XTYPE (pane) != Lisp_Cons) pane = wrong_type_argument (Qlistp, pane); | 654 if (XTYPE (pane) != Lisp_Cons) pane = wrong_type_argument (Qlistp, pane); |
655 | 655 |
656 i = XFASTINT (Flength (pane, 1)); | 656 i = XFASTINT (Flength (pane)); |
657 | 657 |
658 *vector = (Lisp_Object *) xmalloc (i * sizeof (Lisp_Object)); | 658 *vector = (Lisp_Object *) xmalloc (i * sizeof (Lisp_Object)); |
659 *names = (char **) xmalloc (i * sizeof (char *)); | 659 *names = (char **) xmalloc (i * sizeof (char *)); |
660 | 660 |
661 for (i = 0, tail = pane; !NILP (tail); tail = Fcdr (tail), i++) | 661 for (i = 0, tail = pane; !NILP (tail); tail = Fcdr (tail), i++) |