#endif /* HAVE_POPUPS */
int
-separator_string_p (CONST char *s)
+separator_string_p (const char *s)
{
- CONST char *p;
+ const char *p;
char first;
if (!s || s[0] == '\0')
return pgui->accelerator;
else
- return pgui->name;
+ return gui_name_accelerator (pgui->name);
}
Lisp_Object
CHECK_STRING (pgui_item->keys);
if (XSTRING_LENGTH (pgui_item->keys) > buf_len)
signal_too_long_error (pgui_item->name);
- strcpy (buf, (CONST char *) XSTRING_DATA (pgui_item->keys));
+ strcpy (buf, (const char *) XSTRING_DATA (pgui_item->keys));
return XSTRING_LENGTH (pgui_item->keys);
}
void
syms_of_gui (void)
{
+ INIT_LRECORD_IMPLEMENTATION (gui_item);
+
defkeyword (&Q_active, ":active");
defkeyword (&Q_suffix, ":suffix");
defkeyword (&Q_keys, ":keys");