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++)