Mercurial > emacs

comparison src/sunfns.c @ 9112:85182997b9c9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sun_item_create): Use type test macros.
author Karl Heuer <kwzh@gnu.org>
date Tue, 27 Sep 1994 01:21:05 +0000
parents 1fc792473491
children ac7375e60931
comparison
equal deleted inserted replaced
9111:b2596f9e624c 9112:85182997b9c9
362 362
363 if (!CONSP(Pair)) wrong_type_argument(Qlistp, Pair); 363 if (!CONSP(Pair)) wrong_type_argument(Qlistp, Pair);
364 String = Fcar(Pair); 364 String = Fcar(Pair);
365 CHECK_STRING(String, 0); 365 CHECK_STRING(String, 0);
366 Value = Fcdr(Pair); 366 Value = Fcdr(Pair);
367 if(XTYPE(Value) == Lisp_Symbol) 367 if (SYMBOLP (Value))
368 Value = XSYMBOL(Value)->value; 368 Value = XSYMBOL(Value)->value;
369 if(XTYPE(Value) == Lisp_Vector) { 369 if (VECTORP (Value)) {
370 submenu = sun_menu_create (Value); 370 submenu = sun_menu_create (Value);
371 menu_item = menu_create_item 371 menu_item = menu_create_item
372 (MENU_RELEASE, MENU_PULLRIGHT_ITEM, XSTRING(String)->data, submenu, 0); 372 (MENU_RELEASE, MENU_PULLRIGHT_ITEM, XSTRING(String)->data, submenu, 0);
373 } else { 373 } else {
374 menu_item = menu_create_item 374 menu_item = menu_create_item