Mercurial > emacs

comparison src/xmenu.c @ 485:8c615e453683

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Mon, 13 Jan 1992 21:48:08 +0000
parents 49342840ba00
children 4de9c9a62bda
comparison
equal deleted inserted replaced
484:3165b2697c78 485:8c615e453683
318 *vector = (Lisp_Object **) xmalloc (i * sizeof (Lisp_Object *)); 318 *vector = (Lisp_Object **) xmalloc (i * sizeof (Lisp_Object *));
319 *panes = (char **) xmalloc (i * sizeof (char *)); 319 *panes = (char **) xmalloc (i * sizeof (char *));
320 *items = (int *) xmalloc (i * sizeof (int)); 320 *items = (int *) xmalloc (i * sizeof (int));
321 *names = (char ***) xmalloc (i * sizeof (char **)); 321 *names = (char ***) xmalloc (i * sizeof (char **));
322 322
323 for (i=0, tail = menu; !NULL (tail); tail = Fcdr (tail), i++) 323 for (i=0, tail = menu; !NILP (tail); tail = Fcdr (tail), i++)
324 { 324 {
325 item = Fcdr (Fcar (tail)); 325 item = Fcdr (Fcar (tail));
326 if (XTYPE (item) != Lisp_Cons) (void) wrong_type_argument (Qlistp, item); 326 if (XTYPE (item) != Lisp_Cons) (void) wrong_type_argument (Qlistp, item);
327 #ifdef XDEBUG 327 #ifdef XDEBUG
328 fprintf (stderr, "list_of_panes check tail, i=%d\n", i); 328 fprintf (stderr, "list_of_panes check tail, i=%d\n", i);
356 i= XFASTINT (Flength (pane, 1)); 356 i= XFASTINT (Flength (pane, 1));
357 357
358 *vector = (Lisp_Object *) xmalloc (i * sizeof (Lisp_Object)); 358 *vector = (Lisp_Object *) xmalloc (i * sizeof (Lisp_Object));
359 *names = (char **) xmalloc (i * sizeof (char *)); 359 *names = (char **) xmalloc (i * sizeof (char *));
360 360
361 for (i=0, tail = pane; !NULL (tail); tail = Fcdr (tail), i++) 361 for (i=0, tail = pane; !NILP (tail); tail = Fcdr (tail), i++)
362 { 362 {
363 item = Fcar (tail); 363 item = Fcar (tail);
364 if (XTYPE (item) != Lisp_Cons) (void) wrong_type_argument (Qlistp, item); 364 if (XTYPE (item) != Lisp_Cons) (void) wrong_type_argument (Qlistp, item);
365 #ifdef XDEBUG 365 #ifdef XDEBUG
366 fprintf (stderr, "list_of_items check tail, i=%d\n", i); 366 fprintf (stderr, "list_of_items check tail, i=%d\n", i);