mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-27 07:41:28 -08:00
Code Issues Projects Releases Wiki Activity

(sun_item_create): Use type test macros.

Browse source
This commit is contained in:
Karl Heuer 1994-09-27 01:21:05 +00:00
parent 330cf232bf
commit b442163d0d
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/sunfns.c
View file

@ -364,9 +364,9 @@ sun_item_create (Pair)
String = Fcar(Pair);
CHECK_STRING(String, 0);
Value = Fcdr(Pair);
if(XTYPE(Value) == Lisp_Symbol)
if (SYMBOLP (Value))
Value = XSYMBOL(Value)->value;
if(XTYPE(Value) == Lisp_Vector) {
if (VECTORP (Value)) {
submenu = sun_menu_create (Value);
menu_item = menu_create_item
(MENU_RELEASE, MENU_PULLRIGHT_ITEM, XSTRING(String)->data, submenu, 0);