mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-05 20:43:08 +00:00
Code Issues Releases Activity

Include lisp.h, not ../src/lisp.h.

Browse Source 
(lw_lucid_widget_p): Remove unused `mw'.
(xlw_update_one_widget, xlw_pop_instance) [PROTOTYPES]: Provide
ISO C arglists.
This commit is contained in:
Dave Love 2003-05-22 13:30:20 +00:00
parent 9afca57c21
commit e226063c2f
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lwlib/lwlib-Xlw.c
View File

@ -1,5 +1,6 @@
/* The lwlib interface to "xlwmenu" menus.
Copyright (C) 1992 Lucid, Inc.
Copyright (C) 1994, 2000, 2001 Free Software Foundation, Inc.
This file is part of the Lucid Widget Library.
@ -22,7 +23,7 @@ Boston, MA 02111-1307, USA. */
#include <config.h>
#endif
#include "../src/lisp.h"
#include "lisp.h"
#include "lwlib-Xlw.h"
#include <X11/StringDefs.h>
@ -205,20 +206,19 @@ lw_lucid_widget_p (widget)
}
void
#ifdef PROTOTYPES
xlw_update_one_widget (widget_instance* instance, Widget widget,
widget_value* val, Boolean deep_p)
#else
xlw_update_one_widget (instance, widget, val, deep_p)
widget_instance* instance;
Widget widget;
widget_value* val;
Boolean deep_p;
#endif
{
XlwMenuWidget mw;
Arg al[1];
if (XtIsShell (widget))
mw = (XlwMenuWidget)((CompositeWidget)widget)->composite.children [0];
else
mw = (XlwMenuWidget)widget;
/* This used to use XtVaSetValues, but some old Xt versions
that have a bug in XtVaCreateWidget might have it here too. */
XtSetArg (al[0], XtNmenu, instance->info->val);
@ -236,9 +236,13 @@ xlw_update_one_value (instance, widget, val)
}
void
#ifdef PROTOTYPES
xlw_pop_instance (widget_instance* instance, Boolean up)
#else
xlw_pop_instance (instance, up)
widget_instance* instance;
Boolean up;
#endif
{
}