comparison src/sunfns.c @ 39584:6145836b795c

Use SYMBOL_VALUE/ SET_SYMBOL_VALUE macros instead of accessing symbols' value directly.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 05 Oct 2001 09:51:48 +0000
parents 002c02db42d3
children e528f2adeed4
comparison
equal deleted inserted replaced
39583:936ffa2961ca 39584:6145836b795c
1 /* Functions for Sun Windows menus and selection buffer. 1 /* Functions for Sun Windows menus and selection buffer.
2 Copyright (C) 1987, 1999 Free Software Foundation, Inc. 2 Copyright (C) 1987, 1999, 2001 Free Software Foundation, Inc.
3 3
4 This file is probably totally obsolete. In any case, the FSF is 4 This file is probably totally obsolete. In any case, the FSF is
5 unwilling to support it. We agreed to include it in our distribution 5 unwilling to support it. We agreed to include it in our distribution
6 only on the understanding that we would spend no time at all on it. 6 only on the understanding that we would spend no time at all on it.
7 7
364 if (!CONSP(Pair)) wrong_type_argument(Qlistp, Pair); 364 if (!CONSP(Pair)) wrong_type_argument(Qlistp, Pair);
365 String = Fcar(Pair); 365 String = Fcar(Pair);
366 CHECK_STRING(String, 0); 366 CHECK_STRING(String, 0);
367 Value = Fcdr(Pair); 367 Value = Fcdr(Pair);
368 if (SYMBOLP (Value)) 368 if (SYMBOLP (Value))
369 Value = XSYMBOL(Value)->value; 369 Value = SYMBOL_VALUE (Value);
370 if (VECTORP (Value)) { 370 if (VECTORP (Value)) {
371 submenu = sun_menu_create (Value); 371 submenu = sun_menu_create (Value);
372 menu_item = menu_create_item 372 menu_item = menu_create_item
373 (MENU_RELEASE, MENU_PULLRIGHT_ITEM, XSTRING(String)->data, submenu, 0); 373 (MENU_RELEASE, MENU_PULLRIGHT_ITEM, XSTRING(String)->data, submenu, 0);
374 } else { 374 } else {