Mercurial > emacs
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 { |